Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.
1. Глупый школьный вариант
Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.
var i,s:integer;
begin s:=0; for i:=1 to 200 do if i mod 5=0 then s:=s+i; Writeln(s) end.
Результат: 4100
2. Более умный школьный вариант с циклом while
Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.
var i,s:integer;
begin i:=5; { первое подходящее число } s:=i; while i<200 do begin i:=i+5; s:=s+i end; Writeln(s) end.
3. Еще более умный школьный вариант с циклом for
От предыдущего отличается получения нужных чисел. Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.
var i,s:integer;
begin s:=0; for i:=1 to 40 do s:=s+5*i; Writeln(s) end.
4. Современный вариант на современном Паскале
Генерируем последовательность нужных чисел и находим сумму её элементов.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
1. Определяем, какой объем займет 1с закодированного файла Частота дискретизации 44.1 кГц означает, что будет использоваться 44100 отсчетов. 16-битное кодирование означает, что на каждом отсчете уровень сигнала кодируется в 16 бит = 16/8 = 2 байта. Тогда 1с кодированного звука потребует для хранения 44100×2 = 88200 байт. 2. Определяем объем файла 10с звука займут 10×88200 байт = 882000 байт. Это на один канал звука, но поскольку файл монофонический, в нем как раз один канал. Можно воспользоваться более крупными единицами. 1 Кбайт = 1024 байта, тогда 882000 байт = 882000/1024 ≈ 861.3 Кбайт
A:integer;
Begin
For A:= 1 to 50 do
WriteLn(A*A);
End.