1. Информатика
  2. Вводится число n, найдите

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

lizok210 lizok210    2   25.08.2019 05:30    1

Ответы
laaaaal228 laaaaal228  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yaltalove67 yaltalove67  11.05.2021 17:16
1) Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран квадрат из звездочек со стороной N. 2) Напишите процедуру, которая выводит на экран...
Maaaaaria122 Maaaaaria122  11.05.2021 17:16
А можете бабочку в программе кумир чертежник...
AnastasiaVolk534 AnastasiaVolk534  11.05.2021 17:16
В статье 48 страниц, 40 строк на странице, 40 символов в строке. Информационный объём статьи 450 Кбайт. Какова мощность алфавита, с которого написана статья?...
пппп97 пппп97  25.05.2019 04:50
Что изучает : а) технология б) в)информатика...
IFRASHDIFRASHD IFRASHDIFRASHD  23.03.2021 17:04
В С++ Дан двовимірний масив. Знайти суму і кількість елементів в кожному стовпці, що потрапляють під інтервал від A до B...
SkeCreeper SkeCreeper  23.03.2021 17:03
Який термін пропущено? x:= To Float(Edit2.text)Edit l=Int To Str(h)Edit l= Int To Str (h)Ladel=Int To Str (k)​...
1236811 1236811  23.02.2021 13:28
4. Какая цель поединка у робота в соревновании «Робо-сумо»? ​...
MrLegolas MrLegolas  23.02.2021 13:29
Задача 1. Їдальня закуповує щодня масло та кг по 110 грн. за кілограм, сметану та кг по35 грн. за кілограм, вершки m3 кг по 70 грн. за кілограм. Визначте суми,потрібні для купівлі...
Reshebnikov Reshebnikov  16.08.2019 00:30
175 из восьмеричной в шестнадцатиричную систему подробно...
Антонggez Антонggez  16.08.2019 00:30
Расшифруйте сообщение если оно зашифровано номер каждой буквы (по алфавиту) вычесть 4 и букву под этим номером(по алфавиту) утрщпр удбикфжую у аипэо шжпфтро...

Популярные вопросы