Question

[Huyen Be]

1/ Bài 1: Viết chương trình hiển thị lên màn hình 10 tên và lớp.

VD: Nguyễn Thiện Nhân

12AB

...

Bài 2: Viết chương trình tính:

• 1 + 2 + ... + N

• N! (1*2*3*...*N)

Câu 3: Viết chương trình hiển thị số chẵn từ x cho đến y và đếm có bao nhiêu số chẵn, tổng số chẵn bằng bao nhiêu?

Giúp mình với ạ :< Mai mình kiểm tra rồi~

Answer 1

[Nguyễn Lê Phước Thịnh]

đơn giản mà

bài 1:

uses crt;
var i:integer;
st,st1:string;
begin
clrscr;
for i:=1 to 10 do
begin
write('nhap ten va lop thu ',i,':'); readln(st,st1);
writeln(st:4,' ',st1:4);
end;

readln;
end.

bài 2:

uses crt;
var n,i,t:integer;
s:longint;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+i;
s:=s*i;
end;
writeln('tong cua day so tu 1 toi ',n,' la: ',t);
writeln('giai thua cua ',n,' la: ',s);
readln;
end.

bài 3:

uses crt;
var x,y,i,dem,t:integer;
begin
clrscr;
repeat
write('x='); readln(x);
write('y='); readln(y);
if x>=y then writeln('ban da nhap sai, yeu cau ban nhap lai');
until x<y;
dem:=0;
t:=0;
for i:=x to y do
if i mod 2=0 then
begin
write(i:4);
dem:=dem+1;
t:=t+i;
end;
writeln;
writeln('so so chan trong day so tu ',x,' toi ',y,' la: ',dem);
writeln('tong cac so chan trong day so tu ',x,' toi ',y,' la: ',t);
readln;
end.