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

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.

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