Question

Viết chương trình Pascal cho hai thuật toán sau: Thuật toán 1: Bước 1: T:=0; n:=0 Bước 2: Nếu T >20 chuyển về bước 4 Bước 3: n:= n+2; T := T+n; Quay lại bước 2 Bước 4: Thông Bảo T; Kết thúc thuật toán

Answer 1

đen thui

Answer 2

đen như zại ai mè giải đựt ạ, khum nhìn thấy chữ gì lun ạ

Answer 3

uses crt;

var t,n:integer;

begin

clrscr;

t:=0;

n:=0;

while t<=20 do 

 begin

n:=n+2;

t:=t+n;

end;

writeln(t);

readln;

end.