1. Информатика
  2. Посчитать количество нечётных

Посчитать количество нечётных чисел в диапозоне [1,n] (через оператор for)

MilаKlimenkova MilаKlimenkova    2   01.06.2019 22:30    1

Ответы
yakov228 yakov228  01.10.2020 16:42
Var k,n,i:longint; begin readln(n); k:=0; for i:=1 to n do if i mod 2<>0 then k:=k+1; writeln(k); end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
TAMADA123123 TAMADA123123  24.12.2020 15:11
Дан фрагмент электронной таблицы. Какое целое число должно быть записано в пустой ячейке, чтобы диаграмма, построенная по значениям диапазона ячеек A2:С2 соответствовала...
chorna202 chorna202  26.01.2021 20:58
Подумайте в какую клетку переместится робот из клетки обозначенной звёздочкой при выполнении следующего фрагмента алгоритма если справа свободно или снизу свободно то...
999Милкивейка999 999Милкивейка999  26.01.2021 20:57
Составьте программу для вычисления значения выражения F=4×x+2×(c-3) Паскаль Информатика 8 класс...
Ivanøva34 Ivanøva34  26.01.2021 20:57
АХТУНГ, СОС XD Сукупність фінансових регуляторів, фінансових установ (банків, страхових компаній, інших фінансових установ) і фінансових ринків. Як називається?...
alex07042004 alex07042004  18.04.2020 12:09
Пусть имеется строка из текста содержащая 1000 букв. Буквы встречаются в тексте: «0» - 90 раз «р» - 40 раз «ф» - 2 раза «а» - 200 раз Какое количество информации несет...
умничка267 умничка267  18.04.2020 12:09
Надо с решением 1) 341 Мбайт в биты . ответ 2860515328 бит. 2) 3 435 973 836, 8 бит в Гбайт. ответ 0,4 Гбайт. 3) Емкость диска составляет 1,4 Гбайта, а емкость дискеты...
burcevyuriy burcevyuriy  18.04.2020 12:09
Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2). ответ введи целым числом. Если координаты точек: x1=5;y1=3x2=9;y2=13....
бульбуль4 бульбуль4  18.04.2020 12:08
Глобальная компьютерная сеть — это:...
lina28052003 lina28052003  04.06.2019 08:20
Всем ! : ) мне задали сделать презентацию по биологии ( я учусь в 7 классе ) на тему двоякодышащие рыбы . вообще проблем с презентациями не было, но тут как раз появились!...
барынмай барынмай  04.06.2019 08:20
Обчисліть: cos133xcos88+sin133xsin88...

Популярные вопросы