Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0
vikaovcerenko
3
12.08.2019 15:30
0
Другие вопросы по теме Информатика
12352858585
21.10.2020 09:11
kaleksandra052
21.10.2020 09:12
Айхан111111
21.10.2020 09:12
gladiatorcor
21.10.2020 09:15
Velichkovskaya
21.10.2020 09:21
hihok
21.10.2020 09:21
Adalet555
21.10.2020 09:21
ыаррауцйу
21.10.2020 09:21
neannopad7
21.10.2020 09:22
Популярные вопросы
- здавать надо завтра а я в английском не шарб...
2 - Какие из следующих высказываний верны? 1) Высотная поясность — закономерная...
3 - На графіку зображено залежність температури води в посудині від часу...
3 - 4. а) На координатной прямой отметьте точки А(-3), В(-4,5), C(3), D(2,5)....
3 - Writing Task 3 Write essay. 50-60 words What do you think of people...
1 - ширина прямоугольного паралепипеда равна 3¾см его длина в 5⅓раза больше...
1 - рассчитайте плотность населения городов определите город с наибольшей...
3 - какое количество теплоты требуется для нагревания стальной детали массой...
3 - РЕШИТЕ 1. 1 did have …, interesting subjects today, 2. Mick had ......
3 - 1. В вашей школе проводится неделя информационных технологий, в рамках...
2
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.