• Предмет: Информатика
  • Автор: katastrofa02
  • Вопрос задан 2 года назад

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

Ответы

Ответ дал: artempashkin
1

Ответ:

а) var i: integer;

begin

for i:=20 to 35 do writeln (i);

end.

б) var i, a: integer;

begin

read (a);

for i:=a to 50 do writeln (i*i);

end.

в) var i, a: integer;

begin

read (a);

for i:=a to 50 do writeln (i*i*i);

end.

г) var i, b, a: integer;

begin

read (a, b);

for i:=a to b do writeln (i);

end.

Объяснение:

нашёл в интернете, но всё же надеюсь помог


katastrofa02: Уже успел найти/переписать программы, из того что я понял переделывая программы, часть программ в интернете не подходят для моих условий заданий (у меня условия задач отличаются от стандартных из-за чего они не работают), конкретнее - не работают б, в, г, там есть условия для значений a/b, должны ли они быть больше или меньше конкретных чисел. Но в любом случае спасибо.
Вас заинтересует