Question

1.sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tổng và tích của 10 số tự nhiên đầu tiên
2.sử dụng câu lệnh lặp với số lần biết trước viết công thức in ra màn hình dãy số tự nhiên từ 1 đến 10

Answer 1

1:

uses crt;

var i,t:integer;

s:real;

begin

clrscr;

i:=0; t:=0; s:=1;

while i<=10 do

begin

i:=i+1;

t:=t+i;

s:=s*i;

end;

writeln('Tong cua 10 so tu nhien dau tien la: ',t);

writeln('Tich cua 10 so tu nhien dau tien la: ',s:0:0);

readln;

end.

2:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 10 do

write(i:4);

readln;

end.