Вопрос по информатике:
Напечатать минимальное четное число, большее введенного N, которое является квадратом. (Pascal)
- 18.08.2015 12:42
- Информатика
- remove_red_eye 17152
- thumb_up 48
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var m:=Trunc(sqrt(n));
if Odd(m) then Inc(m);
while sqr(m)<=n do m+=2;
Writeln(sqr(m),' = ',m,' * ',m)
end.
Тестовое решение:
n= 4563242
4571044 = 2138 * 2138
- 19.08.2015 08:40
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.