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
Hanh Nguyen
Xem chi tiết
PC Vũ
Xem chi tiết
Minh Lệ
11 tháng 5 2021 lúc 1:42

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=1 to 100 do s:=s+1/i;

write('S= ',s:2:2);

readln

end.

Đào Quang Khải
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2023 lúc 14:55

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b);

readln;

end.

thu thu
Xem chi tiết
Hoài thịnh
Xem chi tiết
Hân Chướng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 14:44

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Thành Điền Lê Nguyễn
Xem chi tiết
Minh Nhân
4 tháng 2 2021 lúc 8:25

#TK

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do

s:=s+i;

write(s);

readln;

end.

 

Nguyễn Lê Phước Thịnh
4 tháng 2 2021 lúc 12:56

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do 

  s:=s+i;

writeln(s);

readln;

end.

Tuấn Nguyễn
6 tháng 2 2021 lúc 10:50

b1;tim ssh cua day so cach deu tren cong thuc lop 5:(97-3):khoang canh +1; :))

b2;tinh tong bang cong thuc lop 5 sau : tong=(so dau + so cuoi)*ssh/2;

b3; xuat ra :))) 

Nguyễn Bá Đức
Xem chi tiết
Nguyễn Kiên
Xem chi tiết
datcoder
28 tháng 11 2023 lúc 16:56

Program HOC24; 

uses crt;

var s: longint;

i,n: integer;

begin

clrscr;

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s = s + i*i;

write('S = ',s);

readln

end.