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.
a)Var z:array[1..1000] of longint;
n, i,S:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin S:=S + z[i];
End;
Writeln('Tong chan la ',S);
End.
b)
Var z:array[1..1000] of longint;
n, i, chan, le:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
If chan>le then writeln('So phan tu chan trong mang nhieu hon')
else writeln('So phan tu le trong mang nhieu hon');
End.
Cậu thử kiểm tra lại nhé!
Bạn ơi, hình như đề sai rồi đó.
Vì n ko thỏa mãn n> 20 nên vòng lặp ko xảy ra. Nên khi kết thúc T vẫn bằng 50
Var s1,s2,i,j:integer;
Begin
s1:=1;
s2:=0;
i:=2;
j:=4;
While i<=50 do
Begin
s1:=s1+i;
i:=i+2;
End;
While j<=20 do
Begin
s2:=s2+j;
j:=j+4;
End;
s2:=s2+32;
Writeln('Tong day N = ',s1);
Writeln('Tong day M = ',s2);
Readln;
End.
uses crt;
var a,b,c,d:real;
i,j,n:integer;
begin
clrscr;
a:=1;
i:=5;
while i<=40 do
begin
a:=a*i;
i:=i+1;
end;
writeln('A=',a:0:0);
b:=0;
i:=15;
while i<=170 do
begin
b:=b+i;
inc(i);
end;
writeln('B=',b:0:0);
j:=-20;
c:=0;
while j<=50 do
begin
c:=c+j;
inc(j);
end;
writeln('C=',c:0:0);
write('Nhap n='); readln(n);
d:=0;
i:=1;
while i<=n do
begin
d:=d+1/i;
inc(i);
end;
writeln('D=',d:4:2);
readln;
end.
D