Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

.