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.

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.

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

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.

13 tháng 5 2023

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.