Составить алгоритм решения с алгоритмического языка 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Help me pls . Буду очень благодарен за решение
Автор: iracaenko153
Знайти добуток всіх парних натуральних чисел від 1 до N
Автор: Яковчук1911
Ребят комп вот так завис и нагревается что делать?
Автор: Zeegofer
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.