Среди чисел 1,4,9,16,25...найти первое число,большее n. n ввести с клавиатуры
Среди чисел 1,4,9,16,25...найти первое число,большее n. n ввести с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
uses crt;
var i, n: integer;
begin
clrscr;
writeln ('Введите число n: ');
read (n);
i:=1;
while sqr(i)
Не нашли ответ?
Похожие вопросы