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

Найдите сумму чисел, кратных 5 от 1 до n(паскаль)

Ответ:

temaimcheg

05.10.2020 15:02

Var
N,S:integer;
Begin
S:=0;
ReadLn(N);
For N:= 1 to N do
if N mod 5 = 0 then S:=S+N;
WriteLn('S = ',S);
End.

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

Популярные вопросы: Информатика

pirlikserge05

12.06.2021 21:05

Составьте программу которая определяет являеться ли сумма цифр введённого целого трёхзначного числа чётным числом...

farid32222245

27.07.2021 00:52

Решите вас, нужно к завтрашнему дню. объем жесткого диска равен 465,6гб. сколько страниц текста можно было разместить в памяти этого компьютера (на странице размещается 40 строк по...

Karina1155

27.07.2021 00:52

1.если i-количество информации,n-количество возможных событий,найдите по формуле n=2,какое количество информации несёт в себе зрительное сообщение об остановке шарика в одной из лунок...

Martin45707

17.01.2022 15:15

Азбука морзе позволяет кодировать символы для сообщегий по радиосвязи, задавая комбинацию точек и тире.сколько различных символов (цифр,букв,знаков пунктуации и т.д. ) можно закодировать...

katenok1706

23.10.2022 12:17

Дана непустая последовательность натуральных чисел, за которой следует 0. составить программу поиска в данной непустой последовательности порядкового номера наибольшего элемента....

kamilapark1

04.04.2021 11:09

Определи количество ячеек в диапазоне a1: a7....

прост1232

12.03.2022 05:28

Программа умоляю , все плохо! напишите программу, которая заполняет квадратную матрицу случайными числами в интервале от 10 до 90 и находит максимальный и минимальный элементы в матрице....

Aleksandra19771

21.09.2021 08:58

Вмагазин 180 кг капусты в первый день было продано 5/12 капусты . сколько килограммов капусты продал магазин в первый день?...

dianapanova2004

21.09.2021 08:58

Вчем проявляется биологическая ,а в чем социальная сущность человека?...

bakinec001p08ngx

21.09.2021 08:58

Олег выполнял 1час 5минут на решение он потратил 20 минут, а в стальное время писал сочинение сколько времени олег писал сочинение...

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

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