Задание:
Решите пожалуйста! Даны два числа. Если первое и второе положительные, то первое увеличить на 2. В Фри паскале. На английскомязыке.
Решение:
program pr1; var n1,n2: integer; beginwriteln ('wwedi 1 chislo'); readln (n1); writeln ('wwedi 2 chislo'); readln (n2); if (n1 mod 2)=0) and (n2 mod 2)=0) then n1: =n1+2; writeln ('pervoe chislo=',n1,', vtoroe chislo=',n2); readlnend.
Знаете другой ответ?