Войти Регистрация Спроси ai-bota

Найти сумму чисел кратных 5 от 1 до n.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

тигрц28

23.04.2020 12:01

COP 1 четверть ЗАДАНИЯ ПО СУММАТИВНОМУ ОЦЕНИВАНИЮ ЗА 1 ЧЕТВЕРТЬ Суммативное оценивание за раздел «Компьютер и безопасность Цель обучения 5.4.1.1 Рассуждать о последствиях нарушения...

диана128

12.05.2021 06:30

Дан фрагмент электронной таблицы. Какая из перечисленных ниже формул должна быть записана в ячейке А2, чтобы построенная после выполнения вычислений круговая диаграмма по значениям...

Антон1700

25.01.2023 16:59

6. Для обеспечения информационной безопасности могут применяться различные средства. Заполните таблицу, указав примеры средств обеспечения для каждого вида информационной безопасности....

FoxFantasy

02.11.2022 00:27

1)заполнить массив элементами, значение которых равно его удвоенному порядковому номеру. 2)в заданном массиве a(n) поменяйте местами наибольший и наименьший элементы. в с++...

Фара1323

11.09.2020 06:55

Для кого вероятнее всего будет информативно следующее сообщение: программа- это алгоритм,записанный на языке программирования ? а) шофер б) парикмахер в) начинающий программист г)...

АлексейРИ

11.09.2020 06:55

Как из квадрата сделать круг? ответ состоит из 3 слов....

pppooppaoappo

11.09.2020 06:55

По информатике нам задали такой вопрос: как сделать квадрат кругом? и учитель сказал что ответ состоит из 3 слов....

zoriy22

14.05.2023 15:20

Для заданного одномерного массива целых чисел выполнить последовательно следующие опции: найти количество и сумму чисел имеющих свойство а; переписать в другой массив числа, имеющий...

Olenadob

10.03.2023 20:58

Переведите двоичное число 100001 в десятичную систему счисления...

anuta07121971

27.06.2022 15:01

Напишите в паскале программу, которая считывает целое число и определяет (выводя результат на экран), сколько цифр в этом числе равно 7...

Ответ:

lebrov

01.10.2020 16:51

Program chik;
var s,i,n:integer;
begin
readln(N);
s:=0;
for i:=1 to n do
if(i mod 5=0)then s:=s+i;
writeln(s);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку