tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найдите самый маленький натуральный
Найдите самый маленький натуральный делитель числа х, отличный от 1 (2< =х< =30000). входные данные выходится натуральное число выходные данные выведите наименьший делитель числа х, отличный от 1 примеры входные данные 2 выходные данные 2
btsakhaev
1 15.07.2019 14:30
1
Ответы
Эхэхэхэххэ
03.10.2020 04:52
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
8алина82
01.04.2020 18:55
Чому дорівнює значення логічного виразу x 10, якщо х = 9?...
liza0281
01.04.2020 18:54
Для задачи по своему варианту в том же файле, ниже первого задания скриншот блок-схемы, или нарисуйте её используя возможности программы Дана величина A, выражающая объем информации...
katkuatova
29.02.2020 09:28
1. Напишите алгоритм с аргументами для рисования фигуры, изображенной на рисунке. В качестве аргументов выступают размеры фигуры, указанные на рисунке. http://www.licey.net/kumir/img/drawman/taskArg4_1.png...
baskaqusar
29.02.2020 09:23
Масса одной коробки масла состовляет 1кг 500г ,а цена -3 манат Ск стоит 4 кг масла...
Nagornjk
11.04.2022 04:07
УМОЛЯЮ ЭТО !! program massiv; uses crt; const n=10; var s, i: integer; a: array [1..n] of integer; begin clrscr; randomize; writeln ( Исходный массив: ); for i:=1 to n do begin a[i]:=random(10);...
icidarmitrim
11.04.2022 04:32
Придумайте две свои задачи для Чертёжника (1ая-на абсолютное смещение, 2ая- на относительное смещение)....
ruslanchik1999
11.04.2022 04:32
Нарисуйте в кумире кузнечика ,скажите координаты...
Alex90111
11.04.2022 04:58
Володя играет в командную компьютерную игру. Он выбирает себе игроков в команду. В команде у игроков должен быть одинаковый уровень. Перед Володей загрузился список из четырёх человек...
maksik008
11.04.2022 05:23
В базу данных были внесены сведения о 90 сотрудниках женского пола и 60 сотрудниках мужского пола, которые соответственно включали в себя атрибуты код сотрудника, фамилию, имя, отчество...
МамаВера1
11.04.2022 05:27
Напишите постановку проблемы поэтапно для задач. Какой результат вы получили? 1. Даны натуральные числа от 20 до 50. Определите из них, которые делятся на 3, но не делятся на 5. 2....
Популярные вопросы
Школьные знания.com задай вопрос из школьного предмета 5 - 9 классы обж 8+4 б инстинктсамосахронение-...
2
Скажите каой род занятий у вельмож....
3
Как решить в парке посадили 170 саженцев . из них 80 саженцев берёзы, а остольные-клёны....
1
Вычеркни лишнее слово. happy1under2fish3wet4pens...
2
Нарушением в организме, вызванное полным отсутствием витаминов называется...
3
Природный калий состоит из смеси изотопов 93% 39к и 7% 40к. определите среднюю...
1
Теплоход проплыл по реке а км со скоростью в км/ч ,а затем по озеру на 12 км больше...
2
Расстояния между станциями 240 км. пассажирский поезд этот путь проходит за 3 часа,...
2
Как решить премер 123456789*2007-123456788*2007...
1
:из двух городов,расстояние между которыми 7 400 км,вылетели одновременно навстречу...
3
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
end.