Хоть с одной паскаль а) одноклеточная амеба каждый час делится пополам. вывести количество амеб, которое получится через 1, 2, 3, 4,

Question

Информатика: Хоть с одной паскаль а) одноклеточная амеба каждый час делится пополам. вывести количество амеб, которое получится через 1, 2, 3, 4, 5, 6, 7, 8 часов б). в банке сделан вклад в размере 1 руб. под 8% годовых. какая сумма окажется на счете через 1, 2, 3 года? в). в первый день спортсмен пробежал 5 км. каждый следующий день нагрузка увеличивалась на 10%. на какой день нагрузка превысит 10 км? pascal abc. на уровне 9 класса. без массивов.

alexandrvseznaika · Answer

А)var  count,i,n:integer; begin  count:=1;  write( Введите время в часах: );  readln(n);  for i:=1 to n do    begin      count:=count*2;      writeln( Кол-во амёб через ,i, ч: ,count);      end; end.Б)var  i,n:integer;  count:real; begin  count:=10000;  write( Введите срок: );  readln(n);  for i:=1 to n do    count:=count+0.08*count;  writeln( Итоговая сумма на счёте: , count); end.Потренируйся на последнем....

Популярные вопросы