Составьте программу для расчёта значения количества нечётных трёхзначных чисел
Составьте программу для расчёта значения количества нечётных трёхзначных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar i,count:integer;
begin
count:=0;
for i:=100 to 999 do
if i mod 2<>0 then inc(count);
writeln(count);
end.
Не нашли ответ?
Похожие вопросы