Найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n можно сделать циклом
danilbondarenk2
2
26.08.2019 23:10
0
Другие вопросы по теме Информатика
hellohelloschool
21.04.2021 10:56
75545
21.04.2021 10:55
katerina17054
21.04.2021 10:55
Boxing12474
11.02.2021 16:37
plenkinanatash
11.02.2021 16:39
aleks1yus
11.02.2021 16:41
rast052
27.04.2020 10:49
kama1ezeGggggg
27.04.2020 10:49
valeriybalybin
27.04.2020 10:49
Популярные вопросы
- В чем заключались причины Июльской революции?...
2 - Спишите. Вставьте пропушенные буквы. Разберите слова по составу....
2 - Приведите 3 факта, доказывающие влияние никотина, алкоголя, наркотиков...
2 - 2 Заполни пропуски.1сут. = Lч2мин = Ос4ЧЕМИН1века =летгода = Омес.110века...
1 - Прочитай рассказ А.П. Чехова «Хамелеон» и дай правильный вариант...
1 - Периметр ромба равен 12 см найдите длины его сторон...
2 - №1. Дана функция F(x) = . Найдите F(1). №2. Найдите значение x,...
2 - Берілген сөздерді тәуелдеңдер: білім, мәдениет, тіл...
2 - В. Баренц основной вклад в открытие новых земель. кратко...
1 - Определите число молекул в 7 грамм азоте? ...
3
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.
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.