Задача 11 урок 13.1
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
program zadacha11; var i : integer; begin i:=1; while i > 0 do begin writeln('Vvedite chislo'); readln(i); if i > 0 then If i mod 2 = 0 then writeln('Chislo cetnoe') else writeln('Chislo ne cetnoe'); writeln('- - - -'); end; readln(); end.
- Log in to post comments
- 767 reads