Информатика, опубликовано 2018-08-22 23:05:51 by Гость
Очень нужно пожалуйста!!!!вводится числа до той поры,пока не будет введено число 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на