Задание:
Помогите пожалуйста, напечатать программу. Среди чисел 1,4,9,16,25… найти первое большее заданного N. (язык программированияC+)
Решение:
// Среди чисел 1, 4, 9, 16, 25, … найти первое число, большее n. Program cyberforum707298; varN: integer; // Данное число otvet: integer; // ответ i: integer; // счетчик в цикле beginWriteln ('Введите целое число (N > 0) N='); readln (N); i: =1; While i*i <= N do inc (i); //otvet: =i*i; // вывод ответа Writeln ('Ответ=',otvet) end.
Знаете другой ответ?