program ;
uses crt;
var
i,a,s1,s2:integer;
begin
read(a);
for i:= 1 to a do
if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;
writeln(s1,s2);
end.
Объяснение:
program ;
uses crt;
var
i,a,s1,s2:integer;
begin
read(a);
for i:= 1 to a do
if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;
writeln(s1,s2);
end.
Объяснение: