// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n. Program cyberforum707298; var N :integer; // Данное число otvet :integer; // ответ i:integer; // счетчик в цикле begin Writeln('Введите целое число (N > 0) N='); readln(N); i:=1; While i*i <= N do inc(i);// otvet:=i*i; // вывод ответа Writeln('ответ = ',otvet) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
