Даны две переменные. составить алгоритм, который уменьшит обе переменные на 5, если хотя бы одна из них больше 15, иначе выдаёт соответствующее сообщение
Var a,b:real; Begin Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); if (a>15)or(b>15) then Begin a:=a-5; b:=b-5; WriteLn(a,' ',b); End else Write('Соответствующее сообщение'); End.
a,b:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
if (a>15)or(b>15) then
Begin
a:=a-5;
b:=b-5;
WriteLn(a,' ',b);
End
else Write('Соответствующее сообщение');
End.