Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
2/ program bt;
var N,i:integer;
begin
write('nhap so N'); readln(N);
writeln;
writeln (' bang nhan ', N);
writeln;
for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end
readln
end.
Mik chỉ bít làm bài 2 thôi!
program loc_so_le;
uses crt;
var N,y: longint;
begin
Writeln('Nhap so N '); Readln(N);
for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');
Readln;
end.
***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!
Program Abc_2003;
Uses crt;
Var: i,n,S,d,m,n: integer;
A: array[1..1000] of integer;
Begin
Clrscr;
Write('Moi ban nhap so phan tu cua mang: '); Readln(n);
For i:= 1 to n do
Begin
Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);
end;
s:= 0
For i:= 1 to n do
begin
if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;
S:= S+1;
end;
Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');
Readln;
End.
Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .
Program bai1;
uses crt;
var T: real;
begin
clrscr;
write('nhap T ='); readln(T);
if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')
else
writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');
readln;
end.
program P;
var x, y, P: integer;
begin
writeln('nhap x va y = ');
readln(x,y);
P:=x*x+y*y+x*y;
writeln('gia tri bieu thuc = ',P);
readln
end.
Bạn thử chạy chương trình xem có được ko rồi nói lại cho mình nhé.
Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại
Program tính_chia;
Uses crt;
Var i, n, s, a: integer;
Begin
Write('Nhap so n: '); readln(n);
s:=1;
For i:=1 to n do s:=s*i;
a:=0;
For i:=1 to n do a:=a+i;
Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);
readln;
End.
Program tinhtbcong;
Uses CRT;
Var a,b,c:integer;
Begin
Clrscr;
writeln('Nhap so thu nhat:');readln(a);
Writeln('Nhap so thu hai:');readln(b);
Writeln('Nhap so thu ba:');readln(c);
Writeln('Trung binh cong cua ba so la:',(a+b+c)/3);
Readln;
End.
uses crt;
var x,y,z:integer;
tbc:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
tbc:=(x+y+z)/3;
writeln('tbc=',tbc:5:2