Роботардын даму тарихын байланыстырындар инфомартика

Question

Информатика: Роботардын даму тарихын байланыстырындар инфомартика​

Анютик200511 · Accepted Answer

var
s:real;
flag,d,m:integer;
begin
  s:=10; d:=1;
while s<=100 do
begin
writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}
s:=s+s*0.1;
  d:=d+1;
  if s<20 then
   flag:=d;
end;
  writeln('> 20 km :', flag+1,' day');
  writeln('>100 km : ',d);
end.

Роботардын даму тарихын байланыстырындар инфомартика​

MOGZ ответил