Question

Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!

Answer 1

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

Answer 2

program chan;

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

if i mod 2=0 then write('cac so chan tu 1 den n la:');

readln

end.

Answer 3

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

nha bạn

 |~ Hok tốt ~|