Question

ПОМОГИТЕ С ПАСКАЛЕМ ПОЖАЛУЙСТА Составить программу Для введённых с клавиатеры чисел каждое число умножить на предыдущее. Вывести на печать результат вычислений. Количество чисел ограничено вторым введённым числом

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 Print(ReadlnInteger('1-е число:') * ReadlnInteger('2-е число:'))

end.

Answer 2

Program pas
var a, b, c: integer;
begin
writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(b);
c:= b*a;
writeln('Результат=', c);
end.

Answer 3

Конечно, помогу! Вот программа на языке Pascal, которая решает вашу задачу:

pascalCopy code
program MultiplyByPrevious;

var
  num, previous, result: Integer;
  count: Integer;

begin
  Write('Введите количество чисел: ');
  ReadLn(count);

  Write('Введите первое число: ');
  ReadLn(previous);
  WriteLn('Результаты умножения:');

  for i := 1 to count do
  begin
    Write(previous, ' * ');
    ReadLn(num);
    result := previous * num;
    Write(num, ' = ', result);
    WriteLn;
    previous := num;
  end;
end.

Программа запросит у вас количество чисел и первое число. Затем она будет последовательно запрашивать следующие числа, умножать каждое на предыдущее и выводить результаты вычислений на печать. Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь спрашивать.