Вопрос пользователя:
ввести с клавиатуры пару чисел,меньшее из них заменить их произведением.большее суммой этих чисел.При воде равных чисел-выход из программы
Илюха отвечает:
program z;
var a,b,a:real; {при желании можна real поменять на integer }
begin
writeln (‘Vvedit a i b’);
readln (a,b);
if a
c:=a; {3-я переменная нужна чтобы не потерять неременную a}
a:=a*b;
b:=b+c;
writeln (a,b); {вывод даных}
readln {задержка экрана}
end;
if a>b then begin {NEвкоем случае не менять эту строчку на “else”}
c:=b;
b:=a*b;
a:=a+c;
writeln (a,b);
readln
end {ПЕРЕД “end” точка з запятой Не обязательная}
end.