Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.
<u>1. Глупый школьный вариант</u>
Перебираем все числа в заданном диапазоне и если встречаем кратное 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.
<em>Результат:</em>
4100
<u>2. Более умный школьный вариант с циклом while</u>
Первое число, кратное 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.
<u>3. Еще более умный школьный вариант с циклом for</u>
От предыдущего отличается способом получения нужных чисел.
Замечаем, что ряд 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.
<u>4. Современный вариант на современном Паскале</u>
Генерируем последовательность нужных чисел и находим сумму её элементов.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(5,200,5).Sum.Println
end.
Эскиз карнавального костюма - Альбом для рисования
Цифровая фотография - Флеш-память
Колонка «Происшествия» в газете - бумага
Музыкальная композиция Аудиодиск
Запах цветка <span>Цветок </span>
Программирование необходимо для реализации алгоритмов на машине, для ускорения или автоматизации работы. Пример: создания калькулятора, с помощью него скорость счёта возрастает во много раз.
1) 36 /2= 18 остаток 0
18/2= 9 остаток 0
9/2 =4 остаток 1
4/2=2 остаток 0
2/2=2 остаток 0
1
36=100100
2)197/2=98 остаток 1
98/2=49 остаток 0
49/2=24 остаток 1
24/2 =12 остаток 0
12/2= 6 остаток 0
6/3 =3 остаток 0
3/2 =1 остаток 1
1
197=11000101
3)
Разбиваем число 100000 на триады
1 триада 100=4
2 триада 000=0
эти числа можно найти по таблице из 2 в 8 и в 16 и т.д где :
000=0
001=1
010=2
011=3
100=4
101=5
110=6
111=7
4)327/8=40 остаток 7
40/8=5 остаток 0
5
327=507
