Очень нужно пожалуйста!!!!вводится числа до той поры,пока не будет введено число 1.Определить четность каждого из них.
Попробую накидать прямо здесь. Компилятора нет под рукой, поэтому проверь, если что не так, то скажи.
======
program xaza ;
var n : integer ;
begin
n := 0 ;
while n <> 1 do begin
write (vvedi chislo n= ) ;
readln ( n ) ;
if ( (n mod 2) = 1 ) then write ( NE ) ;
writeln ( chetnoe ) ;
end ;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
