tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится число n, найдите
Вводится число n, найдите все его делители. паскаль
lizok210
2 25.08.2019 05:30
1
Ответы
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
11.05.2021 17:16
1) Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран квадрат из звездочек со стороной N. 2) Напишите процедуру, которая выводит на экран...
Maaaaaria122
11.05.2021 17:16
А можете бабочку в программе кумир чертежник...
AnastasiaVolk534
11.05.2021 17:16
В статье 48 страниц, 40 строк на странице, 40 символов в строке. Информационный объём статьи 450 Кбайт. Какова мощность алфавита, с которого написана статья?...
пппп97
25.05.2019 04:50
Что изучает : а) технология б) в)информатика...
IFRASHDIFRASHD
23.03.2021 17:04
В С++ Дан двовимірний масив. Знайти суму і кількість елементів в кожному стовпці, що потрапляють під інтервал від A до B...
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
23.02.2021 13:28
4. Какая цель поединка у робота в соревновании «Робо-сумо»? ...
MrLegolas
23.02.2021 13:29
Задача 1. Їдальня закуповує щодня масло та кг по 110 грн. за кілограм, сметану та кг по35 грн. за кілограм, вершки m3 кг по 70 грн. за кілограм. Визначте суми,потрібні для купівлі...
Reshebnikov
16.08.2019 00:30
175 из восьмеричной в шестнадцатиричную систему подробно...
Антонggez
16.08.2019 00:30
Расшифруйте сообщение если оно зашифровано номер каждой буквы (по алфавиту) вычесть 4 и букву под этим номером(по алфавиту) утрщпр удбикфжую у аипэо шжпфтро...
Популярные вопросы
Маме дали три яболока а папе на четыре больше сколько яблок у мамы и у папы...
2
Найдите действительные значения x, при которых значение выражения a=2x^2-7x/2...
3
Хто скласти родовід з біології? ! терміново потрібно. в мене очі зеленого...
1
Сад разбит на одинаковые квадраты, две улитки быстрая и медленная ползут...
1
Дайте нормальный и подробный ответ с примерами кто такие лечинохордовые...
1
Нужно составить предложения слово like 5...
2
:все члены предложения ( в том числе и второстепенные члены предложения)...
1
Пример различных созданий сбережений в хозяйстве. !...
3
Что покажут пружинные весы если тела объёмом 100 см3 вывзшивать в керосине...
1
Участники двухдневного погода в 1 день всего пути. после чего им осталось...
3
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.