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.

9 tháng 5 2023

Đề thiếu bạn bổ sung nhé.

11 tháng 5 2021

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.

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b);

readln;

end.

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

4 tháng 2 2021

#TK

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do

s:=s+i;

write(s);

readln;

end.

 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do 

  s:=s+i;

writeln(s);

readln;

end.

D
datcoder
CTVVIP
28 tháng 11 2023

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.