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.

b) 

uses crt;

var s,i,a:longint;

begin

clrscr;

s:=0;

a:=1;

for i:=1 to 35 do 

  begin

s:=s+a;

a:=a+3;

end;

writeln('So vien keo la: ',s);

readln;

end.

26 tháng 1 2021

Cảm ơn bạn nhiều!!!! 😘😘

Câu 3: Giá trị của i là 10

25 tháng 2 2023

Program HOC24;

var i,d: byte;

n,l: real;

begin

n:=100;

while n<200 do

begin

l:=n/100*10;

n:=n+l;

d:=d+1;

end;

write('Ket qua la: ',d);

readln 

end.