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

Những câu hỏi liên quan
Lỏ An Hoà Hacker
Xem chi tiết
TNhi
Xem chi tiết
như quỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 1 2023 lúc 14:00

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.

Kiều Vũ Linh
11 tháng 1 2023 lúc 16:26

uses crt;

var n,i,s:integer;

begin

Write('Nhap n = '); readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.

Quỳnh Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 20:17

uses crt;

var n,s:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=1000 do 

  begin

n:=n+1;

s:=s+n;

end;

writeln(s);

writeln(n);

readln;

end.

giao nguyễn
Xem chi tiết
Ngân
Xem chi tiết
ILoveMath
3 tháng 3 2022 lúc 9:21

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s)

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

ILoveMath đã xóa
ILoveMath
3 tháng 3 2022 lúc 10:29

For...do:

var s,i: integer;

begin

readln(s,i);

s:=0;

For i:=3 to 99 do

If i mod 3 = 0 do s:=s+i;

write(s);

readln;

end.

while ... do:

Var i,S:integer;

Begin

Readln(i,s);

S:=0;

i:=3;

while i<=99 do

if i mod 3 = 0 then s:=s+i;

write(s);

Readln;

End.

Thanh Thanh
Xem chi tiết
Lương Gia Bảo
Xem chi tiết
Phong
24 tháng 3 2023 lúc 5:54

Uses crt;

var

begin clrscr;

k:=1;

s:=0;

while (s<700) do begin

k:=k+1

s:=s+k;

end;

writeln(s,' ',k);

readln;

end; 

nana
Xem chi tiết