Пожаловаться
- 19.04.2018 23:46
- Информатика
- remove_red_eye 905
- thumb_up 51
Ответы и объяснения 1
Program p7;
var n, i: integer;
begin
WriteLn('Введите число.');
ReadLn(n);
for i := 1 to n do
if n mod i = 0 then WriteLn(i)
end.
==========
program p8;
var n, i: integer;
begin
i := 1;
WriteLn('Введите число.');
ReadLn(n);
while i <= n do
begin;
if n mod i = 0 then
WriteLn(i);
i := i + 1;
end;
end.
==========
program p9;
var n, i: integer;
begin
for i := 100 to 999 do
if i mod 7 = 0 then WriteLn(i)
end.
==========
program p10;
var n, i: integer;
begin
i := 100;
while i <= 999 do
begin;
if i mod 7 = 0 then WriteLn(i);
i := i+1;
end;
end.
var n, i: integer;
begin
WriteLn('Введите число.');
ReadLn(n);
for i := 1 to n do
if n mod i = 0 then WriteLn(i)
end.
==========
program p8;
var n, i: integer;
begin
i := 1;
WriteLn('Введите число.');
ReadLn(n);
while i <= n do
begin;
if n mod i = 0 then
WriteLn(i);
i := i + 1;
end;
end.
==========
program p9;
var n, i: integer;
begin
for i := 100 to 999 do
if i mod 7 = 0 then WriteLn(i)
end.
==========
program p10;
var n, i: integer;
begin
i := 100;
while i <= 999 do
begin;
if i mod 7 = 0 then WriteLn(i);
i := i+1;
end;
end.
Пожаловаться
- 20.04.2018 00:43
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы