Презентация, доклад по информатике Решение задач на циклы с постусловием

K, квадрат которого превосходит N: K2 > N;

k:=1;  
While sqr(k) begin
k:=k+1;
end;  
k:=k-1;
Writeln('наименьшее целое положительное число K=',k);
readln;
end.

рост очередного школьника и вычисляющую после завершения медосмотра средний рост прошедших осмотр. Количество школьников, подлежащих медосмотру заранее не известно.

k – количество школьников; summ-суммарный рост;
c – среднее значение роста; r – рост школьника.

s := 0; k := 0;
write (‘введите рост школьника’);
readln (r);
while r <> 0 do
begin
k := k + 1;
summ := summ + r;
write (‘введите рост школьника’);
readln (r);
end;
c := summ/k;
writeln (‘средний рост школьников’,c)
readln;
end.

… напечатать те, которые не превышают n.

Использовать в программе переменные n, i, a .

через 3, 6,9, …, 24 часа, если первоначально была одна амёба.