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!!!! 😘😘

26 tháng 4 2021

giúp mình vs ạ

 

27 tháng 4 2021

Giup minh voi aj 9h30 minhf thi roi

 

uses crt;

var t,v,i,tien:integer;

begin

clrscr;

write('Nhap so von la: '); readln(v);

write('Nhap lai suat:'); readln(i);

write('Nhap so tien can co la: '); readln(tien);

t:=v+v*i;

writeln('So thang la: ',(tien div t)+1);

readln;

end.