Найти сумму всех двузначных чисел, кратных 5. Условный оператор не использовать

Question

Найти сумму всех двузначных чисел, кратных 5. Условный
оператор не использовать

Answer 1

Воспользуемся признаками делимости.
Признак делимости на 5 гласит, что число делится на 5, если его последняя цифра 5 либо 0. Если мы не можем использовать условные операторы, то можем перечислить эти двузначные числа:
var
a : integer;
begin
a := 10+15+20+25+30+35+40+45+50+55+60+65+70+75+80+85+90+95;
writeln(a);
end.
либо можем красиво оформить в цикле


var
a,i: integer;
begin
a := 0;
i := 0;
while i <> 100 do
begin
a := a + i;
i := i + 5;
end;
writeln(a-5);
end.

Comments

еще два более элегантных варианта

---

var
i, s: integer;

begin
s := 0;
for i := (10 div 5) to (95 div 5) do
s := s + i;

writeln(s);

{формула арифметической прогрессии}
s := (95 - 10) / 5 * (10 + 95) / 2;
writeln(s);
end.

---

var
i: integer;
s:real;

begin
s := 0;
for i := (10 div 5) to (95 div 5) do
s := s + 5 * i;

writeln(s);

{формула арифметической прогрессии}
s := (95 - 5) / 5 * (10 + 95) / 2;
writeln(s);
end.