Напечатать "столбиком": а) все целые числа от 20 до 35; б) квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b больше (или равно)10); в) третьи степени всех целых чисел от a до 50 ( значение а вводится с ...
Напечатать "столбиком":
а) все целые числа от 20 до 35;
б) квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b >(или равно)10);
в) третьи степени всех целых чисел от a до 50 ( значение а вводится с клавиатуры; а<(или равно) 50);
г) все целые числа от а до b( значение а и b вводятся с клавиатуры; b>(или равно) а).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы