Составьте программу вычисления суммы нечетных делителей нату-
рального числа M, больша Р.

174

293

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

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

мангл003

Информатика

4,7(80 оценок)

var m,p,d,s:integer;

begin

writeln('введите m');

readln (m);

s:=0;

writeln('введите p');

readln (p);

if p mod 2 = 1 then d:=p+2 else d:=p+1;

while d<=m do begin

if m mod d = 0 then s:=s+d; d:=d+2

end;

writeln(s);

end.

lynnikova05

Информатика

4,8(1 оценок)

Var i: integer; a: array[1..10] of integer; begin randomize; writeln('массив: '); for i: =1 to 10 do a[i]: =random(10)+1; writeln('a[',i,'] = 'a[i]); end; writeln; writeln('индексы с нечетными значениями: '); for i: =1 to 10 do if (a[i] mod 2 = 0) then write(i,' '); end.