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

Найти количество четных чисел в последовательности чисел.последовательность чисел заканчивается 0.паскаль

AlviaSil AlviaSil    1   25.06.2019 11:20    1

Ответы
vipmopmop vipmopmop  20.07.2020 16:51
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Rexis808 Rexis808  19.09.2021 12:31
Как называется свойство алгоритма, заключающееся в отсутствие ошибок, алгоритм должен приводить к правильному результату для всех допустимых входных значениях...
maksatovna17 maksatovna17  19.09.2021 12:27
Вставьте пропущенные слова вместо точек. Если в изучении информатики...-это главный объект то...-это инструмент...
Надежда1класс Надежда1класс  19.09.2021 12:26
Петя хoчет пойти в кино, а Светa нa кaчели. Пaпa никaк не мoжет решиться, у кого из детей пойти нa поводу и решил пoдкинуть монетку. «Если выпaдет oрeл – идeм в...
amid69 amid69  19.09.2021 12:26
отправки и получения электронного письма?...
PolinaRa1610200710 PolinaRa1610200710  19.09.2021 12:21
Ребята заполнить таблицу в тетрадь (7 класс информатика)...
mneo98 mneo98  29.06.2019 12:30
Что вы понимаете под систематизацией? сталкивались ли вы с систематизированной информацией? примеры....
Про100карина666 Про100карина666  18.11.2020 19:35
Составить таблицу истинности А*В+С...
200939 200939  02.12.2021 20:34
1)В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов): «Лев, еж, слон, олень, тюлень, носорог, крокодил,...
Доринэ Доринэ  01.07.2019 05:20
Программирование линейных алгоритмов. задано вещественное значение аргумента х. вычислить значение функции у. y = 4,5^3⋅tg x не могу решить ,( выдает ошибку компиляции(...
незнайка1183 незнайка1183  03.11.2020 14:22
сопротивление проводника с площадью поперечного сечения 0,5 см в квадрате равно 2,8 ом определите длину проводника МКПП равно 2,8 х 10 - 8 - 8 10 минус восьмой...

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