Найти сумму всех двузначных чисел, кратных 5. Условный оператор не использовать
Answers & Comments
qwert07
Воспользуемся признаками делимости. Признак делимости на 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.
Answers & Comments
Признак делимости на 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.
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.
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.