Решение задачи 11 из главы 13.1
Primary tabs
Решение задачи 11 из главы 13.1
11. Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
program Project11; var i: integer; begin repeat writeln('Vvedite zeloe chislo:'); readln(i); if ((i mod 2) = 0) then writeln('Chislo ', i, ' chetnoenoe') else writeln('Chislo ', i, ' nechetnoenoe'); until (i=0); writeln('Konez zikla!'); end.
- Log in to post comments
- 610 reads