Предмет: Информатика,
автор: HerrFranzTeule
2. Пользователь вводит два числа. Выведите квадраты всех чисел, расположенных между A и B, включая сами эти числа.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите два числа');
if a>b then Swap(a,b);
Range(a,b).Select(x->x*x).Println
end.
Пример
Введите два числа 29 6
36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите два числа');
if a>b then Swap(a,b);
Range(a,b).Select(x->x*x).Println
end.
Пример
Введите два числа 29 6
36 49 64 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: ksyshaneba1234
Предмет: История,
автор: rivzan123311
Предмет: Математика,
автор: юля1093