Var n,i,k,s:integer;
begin
read (n);
k:=0;
s:=0;
for i:=1 to n do
begin
if (n mod i = 0) then
begin
if (i mod 2 = 0)then
begin
k:=k+1;
end else
begin
s:=s+i;
end;
end;
end;
writeln ('Кол-во чётных - ',k);
writeln ('Сумма нечётных - ',s);
end.
Я думаю Маше 3 года маме 24 а папе 31 а использовала она систему вранья))))) (Это я шучу я не знаю)
Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение:
Солнечная,кирпичная,удачная,вечная,дачная