Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.
var
n,i,z: integer;
begin
readln(n);
for i: =1 to n do if n mod i=0 then inc(z,i);
writeln(z);
end.
-,андрей!
-,паша!
-как у тебя дела?
-у меня всё хорошо,а ты как?
-у меня всё отлично. что спросил
-не за что.пойдёшь сегодня гулять?
-да,конечно.а во сколько?
-в 5 часов.
-хорошо.ладно пока.
пока.встретимся на улице
-хорошо.
мне кажется в цифровом виде
Популярные вопросы