Вопрос по информатике:
Найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n
Можно пожалуйста сделать циклом
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.08.2015 06:01
- Информатика
- remove_red_eye 3957
- thumb_up 37
Ответы и объяснения 2
var sum,n,i: integer;
begin
readln(n);
for i:=3 to n do if i mod 3=0 then sum:=sum+i*i;
write(sum);
end.
- 03.08.2015 22:02
- thumb_up 35
i, n, s: integer;
begin
write('Введите N: ');
readln(n);
s := 0;
for i := 1 to n do
if i mod 3 = 0 then
s := s + sqr(i);
writeln(s);
end.
- 04.08.2015 08:13
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.