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.
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 .
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.
uses crt;
var n,i,d,j:integer;
a:array[1..20] of integer;
begin
clrscr;
write('Nhap so phan tu cua day:');
readln(n);
while (n>20) do
begin
write('nhap lai so phan tu cua day thoa man toi da la 20 phan tu:');readln(n);
end;
for i:=1 to n do
begin
write('a[',i,'] =');readln(a[i]);
end;
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d=2 then writeln(a[i],' la so nguyen to');
end;
readln;
end.
Type mang=array [1..20] of integer;
var a:mang; i,n,k:integer;
begin
Writeln('nhap n');
readln(n);
for i:=1 to n do
begin
writeln(' nhap pt thu', i);
readln(a[i]);
end;
for i:=1 to n do
begin
k:=2;
while (k<= a[i]) and ( a[i] mod k <>) do
k:=k+1;
if k:= a[i] then writeln(a[i]);
end;
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 luy_thua;
Uses crt;
Var a, i, n: integer;
Begin
Write('Nhap co so a: '); readln(a);
Write('Nhap so mu n: '); readln(n);
For i:=1 to n do a:=a*a;
Writeln('Gia tri a luy thua n la: ', a);
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.
không biết chương trình có sai chỗ nào không nữa!?
1) type mang=array [1..20] of integer;
var a:mang; i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
writeln(a[i]);
readln;
end.
2) Type mang=array [1..20] of integer;
var a:mang; n,i,sl:integer;
begin
readln(n); sl:=0;
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2 =0 then sl:=sl+1;
writeln(sl);
readln;
end.
này là bài 3
2) Sắp xếp mảng theo thứ tự tăng dần
type mang=array [1..20] of integer;
var a:mang; i,n,s,k:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i] > a[k] then ( giảm dần thì đổi dấu )
begin
s:=a[i];
a[i]:=a[k];
a[k]:=s;
end;
for i:=1 to n do
writeln(a[i]);
readln;
end.
thiếu rồi bạn ơi!
ban bo chu 'd' di, no khong can thiet trong bai nay dau, minh ghi thua....
trong phần khai báo ý!
thiếu chỗ nào bạn ?
còn nếu là thiếu phần phần tử lẻ thì làm tương tự
Program bai1;
uses crt;
var a: array [1..100] of integer;
n,i,j,dem,Z: integer;
begin
clrscr;
write('nhap mang n ='); readln(n);
for i := 1 to n do
begin
write('nhap a[',i,'] = '); readln(a[i]);
end;
writeln('mang vua nhap la :');
for i:= 1 to n do
write(a[i] :4);
writeln('mang tang dan la :');
for i:= 1 to n do
for j := 1+i to n do
if a[i] > a[j] then
begin
Z:=a[i];
a[i]:=a[j];
a[j]:=Z;
end;
write(a[i] :4);
dem:=0;
for i:= 1 to n do
if a[i] mod 2 = 0 then dem:=dem+1;
for i:=1 to n do
writeln('co ',dem,' phan tu chan ');
for i:= 1 to n do
if a[i] mod 2 <>0 then dem:=dem+1;
for i:= 1 to n do
writeln('co ',dem,' phan tu le ');
readln;
end.