Урок 13.1 Задание 12
Primary tabs
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
var i, a: integer; begin repeat writeln ('vvedite chislo'); readln(a); if (a <>0)then begin if (a mod 2 = 0) then writeln('chislo chetnoe') else writeln ('chislo nechetnoe'); end; until (a = 0); end.
Konsol
vvedite chislo 5 chislo nechetnor vvedite chislo 8 chislo chetnoe vvedite chislo 2 chislo chetnoe vvedite chislo 0
- Log in to post comments
- 410 reads
vedro-compota
Sun, 03/19/2023 - 12:43
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)