Информатика: Найти все делители числа 132 в все ))

mugivara9820p09uk7

25.05.2022 09:46

Информатика

Есть ответ 👍

Найти все делители числа 132 в все ))

166

366

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

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

гора7р

Информатика

4,6(25 оценок)

Var i: integer, s, stri: string begin s : = "1; " ' 1 - делитель любого числа for i : = 2 to 132 do ' проверяем все числа от 2 до 132 begin if (132 mod i = 0) then begin str(i; stri); (s : = concat(s, stri, "; "); end; ' если 132 делится на очередное число, приписываем его к ответу end; writeln (s); ' выводим ответ в виде строки через ; end .

QueenMarceline

Информатика

4,4(68 оценок)

Вот наполнение массива рандомом. если нужно наполнение с клавиатуры, то вместо a[i,j]: =random(100)-50; необходимо поставить read(a[i,j]); const n=3; m=4; var a: array[1..n,1..m] of integer; var i, j, count: integer; begin count: =0; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(100)-50; write(a[i,j]: 3, ' '); end; writeln; end; for i: =1 to n do for j: =1 to m do begin if (a[i,j]< 0) and (a[i,j] mod 2 < > 0) then count: =count+1; end; writeln('количество отрицательных нечетных элементов: ', count); end.