Информатика, опубликовано 2018-08-22 21:27:56 by Гость
Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)
Ответ оставил Гость
Program;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln(n=);
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.