Var
i, s: integer;
begin
s := 0;
for i := 10 to 99 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Налить в 9литровое
Перелить в 5литровое
Вылить из 5литрового
Перелить в 5литровое
Вылить из 5литрового
В 9литровом останется 3л