Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.03.2018 03:44
- Информатика
- remove_red_eye 8734
- thumb_up 15
Ответы и объяснения 1
var
a,i,sum,k:integer;
begin
for i:=1 to 20 do begin
a:=random(1000);
write(a,' '); // вывод чисел
if (a mod 3 = 0) or (a mod 5 = 0) then
begin
sum:=sum+a; // складируем сумму
inc(k); // считаем количество
end;
end;
writeln;
writeln(sum,' ', k,' ', sum/k); //вывод результата
end.
- 20.03.2018 13:27
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.