Вопрос по информатике:
Составить программы: нахождения суммы и количества чисел из n натуральных чисел, кратных 3 и оканчивающихся на 2. На языке Pascal. Помогите пожалуйста!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.09.2016 22:40
- Информатика
- remove_red_eye 1170
- thumb_up 30
Ответы и объяснения 1
//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
Var
n:integer;
begin
readln(n);
writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum);
writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count);
end.
//"Школьный" вариант
Var
i,n,sum,co:integer;
begin
readln(n);
for i:=1 to n do
if (i mod 3=0) and (i mod 10=2) then
begin
co:=co+1;
sum:=sum+i;
end;
writeln('Summary=',sum);
writeln('Count=',co);
end.
Пример ввода:
14
Пример вывода:
Summary=12
Count=1
- 28.09.2016 04:30
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.