ТутРешу.Ру

Решите пожалуйста! Даны два числа

Задание:

Решите пожалуйста! Даны два числа. Если первое и второе положительные, то первое увеличить на 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.




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

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