Предмет: Информатика,
автор: Аноним
Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)
Ответы
Автор ответа:
1
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var n:=ReadInteger('n=');
SeqGen(n-1,x->x*x,1).Println
end.
Тестовое решение:
n= 15
1 4 9 16 25 36 49 64 81 100 121 144 169 196
begin
var n:=ReadInteger('n=');
SeqGen(n-1,x->x*x,1).Println
end.
Тестовое решение:
n= 15
1 4 9 16 25 36 49 64 81 100 121 144 169 196
Аноним:
Тестовое решение не верно, ибо в условии сказано: меньше данного N/
Да неужели? Квадрат 15 равен 225, если что.
В условии сказано "чисел, меньших данного N". N=15 в тестовом решении, квадрат 15 уже не выводился.
И, к сведению, пометка верных решений ошибочными наказуема.
Пардон, прошу прощения
Но ИМХО должно было быть: 1 4 9 (числа<15, из которых извлекается корень)
Для такого имхо в условии должно быть написано не меньшИХ данного, а меньшИЕ данного. Тогда можно отнести это слово по согласованию к "квадраты".
Похожие вопросы