Вопрос по информатике:
На интервале от a до b найти количество сумму и произведение чисел кратных 7 и 9 одновременно и вывести их на экран
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.06.2018 11:18
- Информатика
- remove_red_eye 13614
- thumb_up 10
Ответы и объяснения 1
var
a,b,m,k,s:integer;
p:real;
begin
Write('Введите границы интервала: '); Read(a,b);
if a>b then begin
m:=a; a:=b; b:=m
end;
m:=a mod 63;
if m>0 then a:=a+63-m
else if m<0 then a:=a-m;
s:=0; p:=1; k:=0;
while a<=b do begin
s:=s+a; p:=p*a; k:=k+1;
a:=a+63
end;
Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
Writeln('Количество ',k,', сумма ',s,', произведение ',p)
end.
Пример
Введите границы интервала: 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 3.65675480699261E+74
- 14.06.2018 00:12
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.