люди помогите!!! в паскале при помощи while .дано натуральное число n<10 прибавлять к нему его первоначальный квадрат и выводить на экран результат пока результат не станет большим 250

2

Ответы и объяснения

2013-02-17T20:32:49+04:00

var

n,k:integer;

begin

readln(n);

k:=n;

if n<10 then 

begin

while k<250 do

begin

k:=k+(n*n);

writeln(k)

end;

end;

else writeln('введите другое число');

end.

это черновой вариант,в нем много ошибок, но я думаю ход моих мыслей понятен)

2013-02-17T21:29:39+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var n,k:integer;

Begin

  read(n);

  k:=n;

  while (k+n*n<250) do begin

     k:=k+n*n;

     writeln(k);

  end

End.