Вопрос по информатике:
Даны четыре целых числа. Найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла не использовать(На Паскале)
- 06.11.2017 13:06
- Информатика
- remove_red_eye 6073
- thumb_up 7
Ответы и объяснения 1
Var a,b,c,d,sum:intger;
begin
writeln(введите 4 числа:);
read(a,b,c,d);
sum:=0;
if (a mod 3 =0)and(a>5) then sum:=sum+a;
if (b mod 3 =0)and(b>5) then sum:=sum+b;
if (с mod 3 =0)and(c>5) then sum:=sum+с;
if (d mod 3 =0)and(d>5 ) then sum:=sum+d;
if sum 0 then writeln(sum);
else writeln('Ни одно число не удовлетворяет условию');
- 07.11.2017 10:42
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.