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.

12 tháng 3 2019

mình thách bạn cũng với đề ấy trong chương trình scratch

5 tháng 5 2019

chịu nạ

11 tháng 2 2021

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

 

 

Uses crt;

Var

S,i,n:Integer;

a:array[1..100] of integer;

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.