Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль
var a,i: integer;
begin
readln(a);
writeln;
for i: =1 to a do
if (a mod i=0) then writeln (i);
end.
а) 400 * 2,5 = 1000 кб
б) 64 : 2,5 = 25,6 = 25 страниц
в) нужен диск - cd-r или cd-rw
на египетскую - иероглифы.
Популярные вопросы