Задача 11 Урок 13.1
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var a:integer; begin writeln('vvedite chislo > 0'); readln(a); while (a > 0) do begin if((a mod 2) = 1) then writeln(a, '- ne chetnoe') else writeln(a, '- chetnoe'); writeln('vvedite chislo > 0'); readln(a); end; writeln('konec!'); readln(); end.
- Log in to post comments
- 270 reads