Вопрос по информатике:
Задана последовательность из n вещественных чисел. Определить
количество четных и количество нечетных элементов
последовательности.
оператор цикла с параметром;
Пожаловаться
- 01.07.2018 19:46
- Информатика
- remove_red_eye 3529
- thumb_up 41
Ответы и объяснения 2
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Пожаловаться
- 02.07.2018 17:29
- thumb_up 40
Program p;
var n,a,k,m,i:integer;
begin
writeln ('Введите n');
write ('n=');
readln (n);
k:=0;
m:=0;
for i:=1 to n do begin
readln (a);
if a mod 2=0 then k:=k+1
else m:=m+1;
end;
writeln ('Количество четных ',k);
writeln ('Количество нечетных ',m);
end.
var n,a,k,m,i:integer;
begin
writeln ('Введите n');
write ('n=');
readln (n);
k:=0;
m:=0;
for i:=1 to n do begin
readln (a);
if a mod 2=0 then k:=k+1
else m:=m+1;
end;
writeln ('Количество четных ',k);
writeln ('Количество нечетных ',m);
end.
Пожаловаться
- 03.07.2018 05:57
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы