Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!! Программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.

Answer 1

var a, b: real;

 s: string;

begin

 repeat

   Writeln('Введите два числа');

   Readln(a, b);

   Writeln(a,' * ',b,' = ',a*b);

   Writeln('Завершить программу? - n or N for "No"');

   Readln(s);

 until (s <> 'n') and (s <> 'N')

end.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет произведение двух чисел с использованием цикла с постусловием и спрашивает пользователя, хочет ли он завершить программу:

pascalCopy code
program Умножитель;

var
  число1, число2, произведение: integer;
  продолжить: char;

begin
  repeat
    writeln('Введите первое число: ');
    readln(число1);

    writeln('Введите второе число: ');
    readln(число2);

    произведение := число1 * число2;

    writeln('Произведение: ', произведение);

    writeln('Хотите продолжить? (Д/Н): ');
    readln(продолжить);
  until (продолжить = 'Н') or (продолжить = 'н');
end.

Эта программа будет запрашивать у пользователя два числа, вычислять их произведение, затем спрашивать, хочет ли пользователь продолжить. Если пользователь вводит "Д" или "д", программа будет продолжать выполнение, в противном случае она завершит работу.