Задание на урок:
«4»: Ввести a и b и вывести квадраты и кубы чисел от a до b.
Пример:
Введите границы интервала: 4 6 4 16 64 5 25 125 6 36 216 |
«5»: Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, …
Пример:
1*1=1 1*1*1=1 2*2=4 2*2*2=8 4*4=16 4*4*4=64 ... 46*46=2116 46*46*46=97336 |
Внимание! В первой строке своей программы в комментариях указываем фамилию, имя и класс на кириллице. Имя файла формируем из своих инициалов и номера программы, например IVP09.pas (девятая программа Иванова Василия Петровича). Не забываем копировать ваши программы в папку Обмен.
Удачи!
var a,b: integer;
begin
a:=1;
for b:= 1 to 10 do
begin
writeln(a:2,a*a:6,a*a*a:7);
a := a+b;
end;
end.