Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию циклического алгоритма. подсчитать площади десяти кругов с радиусами от 1 см с шагом 2 см и вывести значения площадей на экран.
Ответы
Var amoebas, t: integer; begin amoebas : = 1; t : = 0; repeat t : = t + 3; amoebas : = amoebas * 2; writeln(amoebas, ' амеб через ', t, ' часа'); until t > = 24; end.
Var amoebas, t: integer; begin amoebas : = 1; t : = 0; repeat t : = t + 3; amoebas : = amoebas * 2; writeln(amoebas, ' амеб через ', t, ' часа'); until t > = 24; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
РЕБЯТА МНЕ НАДО В ПОЛОВИНУ ОТПРАВИТЬ
Автор: verakmves
Каким будет результат выполнения кода
Автор: litlenet
Яку роль в таблицях відіграє в excel? ?
Автор: SlavaA99
program qq;
uses crt;
const n=10;
pi: =3.14;
var r,s,i: integer;
begin
clrscr;
for i: =1 to n do
begin
s: =sqr(2*i-1)*3.14;
writeln(s);
end;
readln
end.