Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n.
GIÚP VỚI !!!
Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n. GIÚP VỚI !!!
By Allison
By Allison
Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n.
GIÚP VỚI !!!
uses crt;
var n,d,i,t,max,x:longint;
y:integer;
st:string;
begin
clrscr;
repeat
write(‘Nhap n=’); readln(n);
until n>0;
str(n,st);
d:=length(st);
writeln(‘So chu so cua ‘,n,’ la: ‘,d);
t:=0;
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
if max<x then max:=x;
end;
writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,t);
writeln(‘Chu so lon nhat cua ‘,n,’ la: ‘,max);
readln;
end.
program sochan;
uses crt;
var n,i,d:integer;
begin
write(‘Nhap n: ‘); readln(n);
write(’20 so chan tiep theo la: ‘);
d:=0; i:=n+1;
while d<=20 do
begin
if i mod 2=0 then
begin
d:=d+1;
write(i,’ ‘);
end;
i:=i+1;
end;
readln;
end.