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