Вопрос по информатике:
Дана непустая последовательность целых чисел, оканчивающаяся нулем
(0 является признаком окончания последовательности и в последовательность не входит).
Найти и напечатать:
1. Сумму всех чисел, больших Х (значение Х вводится с клавиатуры).
Если таких чисел нет, то напечатать «Таких чисел нет»
2. Количество четных чисел
- 05.08.2018 19:39
- Информатика
- remove_red_eye 11027
- thumb_up 38
Ответы и объяснения 1
Program gt;
var a,s,k,r,x:integer;
begin
read(x);
r:=0;k:=0;a:=-1;
while a0 do
begin
read(a);
if(a mod 2=0)then k:=k+1;
if(a>x)then begin
r:=1;s:=s+a;
end;
end;
if r=1 then writeln(s)else writeln('НЕт* **** ');
writeln(k-1);
end.
- 06.08.2018 05:07
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.