Очень нужно пожалуйста!!!!вводится числа до той поры,пока не будет введено число 1.О
Очень нужно пожалуйста!!!!вводится числа до той поры,пока не будет введено число 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.
Не нашли ответ?
Похожие вопросы