ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.
з -это заяц,их должно быть 5:
три зайца по углам и два у стенок по одному.
з з это для малышей,ее каждый ребенок знает.
з
з з
Ответ дал: Гость
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
Ответ дал: Гость
одна из возможных форм курсора : прямая
Ответ дал: Гость
program amoeba; var i,count: integer; begin i: =3; //количество часов count: =1; //количество амеб while i < = 24 do begin count: =count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i: =i+3; end; readln; end.
Популярные вопросы