Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n=')).Select(t->t*t).Println
end.
Пример
n= 6
-30 45 129 18 0 7
900 2025 16641 324 0 49
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n=')).Select(t->t*t).Println
end.
Пример
n= 6
-30 45 129 18 0 7
900 2025 16641 324 0 49
Приложения:
Ответ дал:
0
Вот за такие решения Паскаль и ругают, хотя язык на деле не при чем.
Ответ дал:
0
АПитон при чём?
Ответ дал:
0
Это можно было написать и кароче (например убрать begin и end), но именно так учат в 8-9 классах. При этом каждая строчка понятная. Так что не вижу смысла для агрессии.
Ответ дал:
0
Какая агрессия? Удивление... Насчет "учат в 8-9 классах" - я бы не высказывался столь категорично. Учат, но далеко уже (и слава богу!) не везде. Только в отсталых школах, где учителей переучивать недосуг.
Ответ дал:
0
"АПитон при чём?" - на воре шапка горит? Где тут хоть слово про Питон*
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад