Uzd: Sastādīt programmu, kura ļauj noteikt, cik dienām pietiks 200 tonnu cementa, ja pirmajā dienā paterē 5 tonnas, bet katrā nākamajā par 20% vairāk nekā iepriekšējā. Izmantojiet jebkuru cikla konstrukciju.
Mazliet esmu iesprūdis, kāds var palīdzēt?
program tonna;
uses crt;
var
x,y,t:integer;
s:real;
u:real;
begin
clrscr;
x:=200;
y:=195;
t:=5;
writeln('Katra naakamajaa dienaa tiks izmantots par 1 tonnu vairaak');
readln;
begin
repeat
u:=t*20/100;
t:=t+u;
s:=y-t;
until s<t;
end;
writeln('Cements pietiks ' ,s , 'dienaam');
end.
P.S pascaals
