Войти Регистрация Спроси ai-bota

Вводится число n, найдите все его делители. паскаль

Показать ответ

Ответ:

daniil14537

05.10.2020 18:06

Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.

0,0(0 оценок)

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

Lia20020313

07.02.2020 23:50

Расположите в правильном порядке строки программы:1) S:=a*h; 6) var a,b,h,p,s: integer;2) end.7) readln;3) program pr;8) Writeln(‘p=’,p,’ s=’,s);4) p:=(a+b)^2;9) a:=5;b:=8;h:=3;5)...

1406052005

20.11.2021 20:08

Петр Петрович купил мешок сахара. И решил для себя: каждый раз брать из этого мешка ровно одну десятую часть его содержимого до тех пор, пока в мешке не останется меньше 30...

tzar1

17.05.2021 19:36

В основу информатике положены понятия А) информация и автоматика Б) информация и кибернетика В) автоматика и кибернетика С) програмирование и информация...

Dav134

06.06.2021 05:53

Мәтіндік құжаттарды сақтауға болатын кең таралған файл пішімдері...

Оленька090

27.09.2021 08:35

умоляю очень И подписка!...

tonplaton

17.04.2022 02:50

Что вы можете сказать о формах представления информации в презентации и учебнике?...

илья1947

02.02.2020 12:30

Запиши верный ответ. дано число 944. данное число можно представить в виде 94,4⋅10...

умник1235678

11.12.2020 03:53

Вам даны пять чисел: 543214898711223325для каждого из этих чисел найдите минимальное ...

ЛаймовыйКотик00

18.02.2020 10:25

Решить по информатике, сроч надо, . ручкой написано (наличие атмосферы= плотн ) или (ускорение свободного падения 8)?...

Милана3091

22.10.2021 20:40

Презентация о эволиции плейстейшен ps1 -ps4...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку