Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль
var a,i: integer;
begin
readln(a);
writeln;
for i: =1 to a do
if (a mod i=0) then writeln (i);
end.
var
a: integer;
writeln(a*(a div 10 + (a mod 10)*10));
Популярные вопросы