Giải giúp mình với ngày mai mình kiểm tra rồi :
Bài 1 viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến n
Bài 2 viết chương trình tính tích (n) của các số tự nhiên từ 1 đến n bằng vòng lặp while
Bài 3 viết chương trình tính tổng các số từ 35 đến 77 bằng vòng lặp while
1)
program ct;
uses crt;
var i,n,S:longint;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
S:=0;
for i:=1 to n do
if i mod 2=0 then S:=S+i;
write(‘Tong la: ‘,S);
readln;
end.
2)
program ct;
uses crt;
var i,n,T:longint;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
i:=1; T:=1;
while i<=n do
begin
i:=i+1;
T:=T*i;
end;
write(‘Tich la: ‘,T);
readln;
end.
3)
progarm ct;
uses crt;
var i,S:longint;
begin clrscr;
i:=34; S:=0;
while i<=77 do
begin
i:=i+1;
S:=S+i;
end;
write(‘Tong tu 35 den 77 la: ‘,S);
readln;
end.
Học tốt!
Bài `1`
Program Hotboy;
Uses crt;
Var i,n,T: Integer;
Begin
clrscr;
Write(‘Nhap so n tu ban phim’);
Readln(n);
For i:=1 to n do
If ( i mod 2=0) then S:=S+i;
Write(‘Tong can tim la: ‘,T);
Readln;
End.
Bài `2`
Program Hotboy;
Uses crt;
var S:longint;
i,n : integer;
Begin
Clrscr;
i:=1; S:=1;
Write(‘Nhap so n tu ban phim ‘); Readln(n);
While i<=n do
Begin
S:=S*i; inc(i)
End;
Write(‘Tich la: ‘,S);
Readln
End.
Bài `3`
Progarm Hotboy;
Uses crt;
Var i,S:longint;
Begin
Clrscr;
While i>34 and i<=77 do
begin
S:=S+i; inc(i);
End;
Write(‘Tong la: ‘,S);
Readln
End.