Вопрос по информатике:
Вывести на экран числа от a до b кратных 3 или оканчивающихся на 3, посчитать их сумму. А так же посчитать количество чисел не удовлетворяющих условию.
Решить оператором While? a до b = 1 до 15
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.02.2016 05:58
- Информатика
- remove_red_eye 2105
- thumb_up 10
Ответы и объяснения 1
var i,a,b,s,n:integer;
begin
writeln('Введите A');
read(a);
writeln('Введите B');
read(b);
writeln(' ');
for i:=a to b do begin
if ((i mod 3=0)or(i mod 10=3)) then writeln(i)
else n:=n+1; e
nd;
s:=s+i;
writeln(' ');
writeln('Сумма чисел=',s);
writeln('Чисел не подходят:',n)
end.
- 12.02.2016 16:23
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.