Вопрос по информатике:
Помогите пожалуйста
1) вывести на экран делители числа n
2) найти все числа от 33 до 555, которые кратны 13
Пожаловаться
- 02.12.2017 01:02
- Информатика
- remove_red_eye 15145
- thumb_up 8
Ответы и объяснения 1
1.
program test;
var i, n: integer;
begin writeln('Введите число: ');
readln(n);
for i := 1 to n do
if (n mod i = 0) then writeln('Делитель числа ', n, ': ', i);
end.
2.
program test;
var i: integer;
begin
for i := 33 to 555 do
if (i mod 13 = 0) then writeln('Число ', i, ' кратно 13! ' );
end.
program test;
var i, n: integer;
begin writeln('Введите число: ');
readln(n);
for i := 1 to n do
if (n mod i = 0) then writeln('Делитель числа ', n, ': ', i);
end.
2.
program test;
var i: integer;
begin
for i := 33 to 555 do
if (i mod 13 = 0) then writeln('Число ', i, ' кратно 13! ' );
end.
Пожаловаться
- 03.12.2017 02:34
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы