Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sam Lê

A=1*2*3...*10

Dùng lệnh While...do

Lệnh For...do

Điều kiện(i<=10)

Giúp mình với

vothedien
4 tháng 6 2020 lúc 14:55

lệnh while

program tich;

uses crt;

var i,s:integer;

begin

clrscr;
S:= 1;
i:= 1;
while i <= 10do
begin
S:= S *i;
i:= i +1;
end;
write('Tich tu 1 den 10 la:',S);
readln;
end.

lệnh for

Program Tich; Uses crt; Var S,i:Integer; BEGIN clrscr; S:=1; For i:=1 to 10do S:=S * i; Writeln( ‘Tich = ’, S); Readln; END.

Các câu hỏi tương tự
Baooooooooooooo
Xem chi tiết
Roy Kj Boy
Xem chi tiết
Phạm Phi Phụng
Xem chi tiết
nguyen quan
Xem chi tiết
Lại Phạm Bảo Trân
Xem chi tiết
Nguyễn Minh Lệ
Xem chi tiết
Phạm Hải Anh
Xem chi tiết
Nguyễn Thị Thúy Ngân
Xem chi tiết
chitoivoi123
Xem chi tiết