Viết chương trình trong pascal cần bao nhiêu số chẵn để tổng nhỏ hơn hoặc bằng 50 bằng câu lệnh while do
Mai mình thi ròi giúp mình với. Cảm ơn nhiều!
Viết chương trình trong pascal cần bao nhiêu số chẵn để tổng nhỏ hơn hoặc bằng 50 bằng câu lệnh while do Mai mình thi ròi giúp mình với. Cảm ơn nhiều!
By Melody
uses crt;
var i,s,d:integer;
begin
i:=0;d:=0;s:=0;
while s<=50 do
if i mod 2=0 then
begin
d:=d+1;
i:=i+2;
s:=s+i;
end;
Write(d);
Readln;
end.
program phuongt;
uses crt;
var t, d, i: integer;
begin
clrscr;
t:=1; d:=0; i:=0;
while t<=50 do
begin
t:=t+i;
if i mod 2 = 0 then d:=d+1;
i:=i+1;
if t>50 then write(‘Can ‘, d, ‘ so chan de tong nho hon hoac bang 50’);
end;
readln
end.