Var a,b,sum:integer;
begin
sum:=0;
for a:=0 to 9 do begin
read(b);
if (b mod 2 =0) then sum:=sum+b;
end;
writeln('сумма чётных чисел sum=',sum);
end.
Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.
Таких чисел 25, запустите программу и убедитесь сами.
1) A*(A+B+C) => AA+A(B+C) => A+A(B+C) => A
2) 200+250-50 = 400
Спички делают из дубовых брёвен