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.
Uses crt;
Var a,b : integer;
Begin
Writeln('Tong hai so a va b la= ', a + b );
Readln;
End.
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.
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é.
uses crt;
var a:array[1..100]of integer;
n,i,t,tam,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so tang la: ');
for i:=1 to n do
write(a[i]:4);
writeln('Day so giam la: ');
for i:=n downto 1 do
write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
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.
program tong cac so le; uses crt; var i, n, tong: integer; A : array[1..10]of integer; begin write('nha so phan tu cua day:'); readln(n); for i:=1 to n do begin (' nhap so thu ',i') ; readln (A[i]); end; tong:=0; for i:= 1 to n do if A[i] mod 2=1 then tong:= tong+A[i]; write('tong cac so le trong day la: ', tong); readln end.
Câu 1:
program bt;
uses crt;
var a:array[1..1000] of integer;
i,n,tong,tich:integer;
begin
clrscr;
write('Do dai cua day la:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0; tich:=1;
for i:=1 to n do
begin
tong:=tong + a[i];
tich:=tich*a[i];
end;
write('tong cac so tu nhien nhap tu ban phim:',tong);
writeln;
write('tich cac so tu nhien nhap tu ban phim:',tich);
readln
end.
Câu 2:
program bt;
uses crt;
var a:array[1..1000] of integer;
i,n:integer;
begin
clrscr;
write('nhap do dai day so:'); readln(n);
writeln('nhap cac phan tu cua day:');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
bn viết thử lên pascal coi nó có chạy đc ko giùm mik nha
1/
uses crt;
var i,tong:integer;
a:array[1..50] of integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:=1 to 50 do tong:=tong+a[i];
write('tong la:',tong);
readln;
end.
*ở đây bạn k ns là số nguyên hay số thực nên mk làm số nguyên, nếu số thực thì bạn sửa khai báo lại nha
2/
uses crt;
var i,dem:integer;
a:array[1..50] of integer;
begin
clrscr;
for i:=1 to 50 do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to 50 do
if a[i] mod 2<>0 then dem:=dem+1;
write('co ',dem,' so le trong 50 so vua nhap');
readln;
end.
*cái này cũng z nhé