Пожалуйста помогите!!!Найти все делители числа 132 в паскале))))))Распишите все...

Question

Пожалуйста помогите!!!Найти все делители числа 132 в паскале))))))Распишите все пожалуйста))

Answer 1

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

.

Comments

Большое спасибо)))

---

Большое пожалуйста