Ответ:
Ответ:
Var i,a,b:integer;
Begin
Read(a,b);
For i:=a to b do begin
Writeln(i*i);
Writeln(i*i*i);
End;
End.
Похожие вопросы и ответы:
- Петя и Вася поспорили, делится ли n на k или не делится.…
- Назовите столицы стран: а) Кубы; б) Гондураса; в) Мексики.…
- Написать код на Python Напишите программу, которая переводит…
- 1. Запиши выражения и найди их значения. Увеличить в а раз…
- Квадратный кусок бумаги со стороной 10 сантиметров разрезали…
- 11*. Дан прямоугольный треугольник АВС с ка- тетами АВ и ВС…
- Сколько водяного пара температура которого 100С надо ввести…
- 4. На тело в воде действуют сила тяжести 30 Н и сила…
- Как называется система времени, которое было принято ввести…
- Кто из римских императоров хотел ввести в состав Сената…
- Даны три четырёхзначных числа. Если в них все нечётные цифры…
- сколько существуета)двухзначных чисел сумма которых равна…
- Из 97 вычесть разность чисел 50 и 23К 36 прибавить сумму…
- Даша начала коллекционировать линейки. Андрей решил сделать…
- Даны натуральные числа от 1 до 50. Найти сумму тех из них,…