Вопрос по информатике:
Помоги написать задачу на Паскале. Решить надо с помощью цикла FOR. Вывести на экран все делители данного числа введенного с клавиатуры.
- 01.12.2017 21:13
- Информатика
- remove_red_eye 16906
- thumb_up 70
Ответы и объяснения 2
var
n,i:longint;
begin
write ('N = ');readln(n);
for i:=2 to n div 2 do
if n mod i = 0 then writeln (i);
readln;
end.
- 03.12.2017 06:40
- thumb_up 15
Program OkuraRain;
var x: integer;
begin
write('Введите число Х ');
readln(x);
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Делители числа Х: ');
for i:=2 to (x div 2) do
if x mod i = 0 then writeln (i);
end.
- 04.12.2017 12:51
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.