друг сказал) если не правильно извини, но он вродь хорош в информе
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Ответ дал: Гость
они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.
Популярные вопросы