ТутРешу.Ру

Напишите пожалуйста решение на языке Паскаль Даны два числа

Задание:

Напишите пожалуйста решение на языке Паскаль Даны два числа. Если первое и второе положительные, то первое увеличить на 2.

Решение:

var a, b: real; begin read (a, b); if (a > 0) and (b > 0) then a: =a+2; writeln (a, ', b); end.




Знаете другой ответ?

Отправить свой ответ