Задание:
Напишите пожалуйста решение на языке Паскаль Даны два числа. Если первое и второе положительные, то первое увеличить на 2.
Решение:
var a, b: real; begin read (a, b); if (a > 0) and (b > 0) then a: =a+2; writeln (a, ', b); end.
Знаете другой ответ?