Напечатать "столбиком":
а) все целые числа от 20 до 35;
б) квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b >(или равно)10);
в) третьи степени всех целых чисел от a до 50 ( значение а вводится с клавиатуры; а<(или равно) 50);
г) все целые числа от а до b( значение а и b вводятся с клавиатуры; b>(или равно) а).

1

Ответы и объяснения

2013-12-21T00:22:34+04:00
A)var i:integer;
begin
for i:=20 to 35 do
writeln(i);
readln
end.
б)var i,b:integer;
begin
write('b (b>=10) - ');
readln(b);
for i:=10 to b do
writeln(sqr(i));
readln
end.
в)var i,a:integer;
begin
write('a (a<=50) - ');
readln(a);
for i:=a to 50 do
writeln(sqr(sqr(i)));
readln
end.
г)var i,a,b:integer;
begin
write('a (a<=b) - ');
readln(a);
write('b(b>=a) - ');
readln(b);
for i:=a to b do
writeln(i);
readln
end.