Регистрация
Елленаа
04.05.2020 03:11
Информатика
Есть ответ 👍

Джон нерипдин ен ашкан жаналык​

190
425
Посмотреть ответы 2

Ответы на вопрос:

katy1231231233
katy1231231233
4,6(66 оценок)

Менің басым. Кешіріздер бірақ мен үй жұмысы

Объяснение:

онлайн движения

andreyylysp08r6o
andreyylysp08r6o
4,8(30 оценок)
Program lol (input, output); var i, n, d, sd, s4d, kd, kn4d, k4d, kbd: integer; begin writeln ('введите само число и число d'); read (n, d); writeln ('делители: '); i: =1; sd: =0; s4d: =0; kd: =0; kn4d: =0; k4d: =0; kbd: =0; while i < =n do begin if n mod i = 0 then begin kd: =kd+1; writeln (i); sd: =sd+i; if i > d then kbd: =kbd+1; if i mod 2 = 0 then begin s4d: =s4d+i; k4d: =k4d+1; end else kn4d: =kn4d+1; end; i: =i+1; end; writeln (' '); writeln ('сумма делителей ', sd); writeln ('сумма четных делителей ', s4d); writeln ('количество делителей ', kd); writeln ('количество нечетных делителей ', kn4d); writeln ('количество четных делителей ', k4d); writeln ('количество делителей болеше d ', kbd); end.

Популярно: Информатика