Program z1; Var n:integer;Begin write('Введите число - '); readln(n); while n>9 do n:=n div 10; if (n mod 2= 0) then writeln('Четна') else writeln('Нечетна');End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
