Mugamand
5 год назад
составить программу в pascalABC.net с использованием подпрограммы в виде процедуры:котоая считает сумму двух одинаковых чисел.Если это не так,то программа выаодит на экран сообщение о том,что числа разные. Повторяется до тех пор,пока ведение числа не будут удовлетворять заданному условию Пожалуйста посчитайте плиз
ОТВЕТЫ
Радион
Oct 24, 2020
procedure sumSameNumbers();
var
a, b, sum: real;
begin
repeat
write('Введите a и b: '); readln(a, b);
if a = b then
begin
sum := a + b;
writeln('Сумма = ', sum)
end
else
writeln('Числа не одинаковые');
until a = b;
end;
begin
sumSameNumbers();
end.
var
a, b, sum: real;
begin
repeat
write('Введите a и b: '); readln(a, b);
if a = b then
begin
sum := a + b;
writeln('Сумма = ', sum)
end
else
writeln('Числа не одинаковые');
until a = b;
end;
begin
sumSameNumbers();
end.
467
