Question

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

Answer 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.

Объяснение:

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

Answer 2

Вот программы на Pascal для каждой из задач:

а) Вывести все целые числа от 20 до 35:

pascalCopy code
program PrintNumbers;
var
  i: integer;
begin
  for i := 20 to 35 do
    writeln(i);
end.

б) Вывести квадраты всех целых чисел от a до b, где b вводится с клавиатуры:

pascalCopy code
program PrintSquares;
var
  a, b, i: integer;
begin
  writeln('Введите значение a:');
  readln(a);
  writeln('Введите значение b (b >= 10):');
  readln(b);

  if b < 10 then
    writeln('b должно быть больше или равно 10')
  else
  begin
    for i := a to b do
      writeln(i, ' в квадрате = ', i * i);
  end;
end.

в) Вывести третьи степени всех целых чисел от a до 50, где a вводится с клавиатуры:

pascalCopy code
program PrintCubics;
var
  a, i: integer;
begin
  writeln('Введите значение a (a <= 10):');
  readln(a);

  if a > 10 then
    writeln('a должно быть меньше или равно 10')
  else
  begin
    for i := a to 50 do
      writeln(i, ' в третьей степени = ', i * i * i);
  end;
end.

г) Вывести все целые числа от a до b, где a и b вводятся с клавиатуры:

pascalCopy code
program PrintRange;
var
  a, b, i: integer;
begin
  writeln('Введите значение a:');
  readln(a);
  writeln('Введите значение b:');
  readln(b);

  if b <= a then
    writeln('b должно быть больше a')
  else
  begin
    for i := a to b do
      writeln(i);
  end;
end.

Вы можете скомпилировать и запустить каждую из этих программ в среде разработки Pascal, такой как Lazarus или Turbo Pascal, чтобы увидеть результаты.