Решить в паскале с использованием цикла с ! программа должна вычислять произведение двух чисел и спрашивать завершать программу или нет, если нет то продолжать запрашивать данные вычислять произведение и печатать его.

daschkavolf daschkavolf    1   17.03.2019 23:25    1

Ответы
darkbluefox darkbluefox  25.05.2020 21:57

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика