K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
![](https://rs.olm.vn/images/avt/0.png?1311)
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
i:=0;
while i<=50 do
begin
i:=i+2;
t:=t+i;
end;
writeln(t);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
ML
16 tháng 3 2023
Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?
![](https://rs.olm.vn/images/avt/0.png?1311)
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
11 tháng 3 2022
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
8 tháng 5 2021
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
Program Tinh_tong ;
Uses Crt;
Var i ,S: integer ;
Begin
S: = 0 i;=0 ;
While < 51 do begin
i : = i + 1 ;
S: = S + i ;
end ;
Write ('Tong la',S);
End.