Задание:
Люди помогите! В паскале при помощи while . Дано натуральное число n<10 прибавлять к нему его первоначальный квадрат и выводить на экран результатпока результат не станет большим 250
Решение:
varn,k: integer; beginreadln (n); k: =n; if n<10 then beginwhile k<250 dobegink: =k+(n*n); writeln (k) end; end; else writeln ('введите другое число'); end. Это черновой вариант, в нем много ошибок, но я думаю ход моих мыслей понятен)
Знаете другой ответ?