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

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

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

↓

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

denpop648p08mew

26.09.2021 13:10

Представьте школьную библиотеку как смешанную систему. Каковы в ней материальные и нематериальные объекты? За счёта чего достигается системный эффект ?...

evozniukk

11.02.2020 06:51

Определи значения переменных P и i после выполнения фрагмента программы: P:=1; i:=3 while 9= do begin P:=p*(div); i:=i+1; end....

gea99

11.04.2023 11:23

Выясни, какое минимальное значение числа d следует ввести, чтобы после выполнения программы было напечатан 150. var n,s,d: integer; begin readln (d); n:=3; s:=38; while s =1200...

BEDmil00

05.02.2023 05:29

Используя команды, процедуры и управляющие структуры «Цикл» и «Ветвление», составить алгоритмы, выполняющий задания с 1 по 6, сохранить их средствами «Стрелочки» как текстовые файлы....

Dimkakrut

25.09.2020 01:31

Какие системы изображены на данном графе ?...

mikilinaf7890

23.02.2021 09:55

№1 Упростить логическое выражение: (A v ¬A)&B №2 Упростите выражение: A&(¬A v B)...

205ячсмит

30.09.2021 20:10

Вычислить значение функции на паскале и написать программу. h={x+cos(y), если y 2|{2+x−4e−y, если 2≤y 6|...

taisia20061

29.09.2020 15:36

7) какое минимальное количество бит потребуется для кодирования положительных чисел, меньших 60? 1) 1 2) 6 3) 36 4) 60 8) двое играют в «крестики-нолики» на поле 4 на 4 клетки....

karakatitsa1

02.06.2022 10:16

Предложение, о котором можно сказать, верно оно или не верно...

KidFlash1111

02.06.2022 10:16

Вкоробке 26 бриллиантов из которых 1 природного происхождения остальные-его копии изготовленные в лаборатории массы искусственных бриллиантов одинаковы а масса природного немного...

Ответ:

Psix73

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 оценок)

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

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