Pascal.ABC 1 написать программу вводящую случайное число в диапазоне(0,20 ) пока случ...

Question

Pascal.ABC 1 написать программу вводящую случайное число в диапазоне(0,20 ) пока случ число не станет равно 10 2 Пользователь вводит n. Перебрать числа (подумать да какого числа) в цикле for и вывести все делители n.

Answer 1

1.

var a:integer;

begin

randomize;

repeat

a:=random(21);

write(a,' ');

until a=10;

end.

Пример:

17 20 12 1 15 5 11 10

2.

var n,i:integer;

begin

readln(n);

writeln('Делители ',n,':');

for i:=1 to n div 2 do

if n mod i=0 then write(i,' ');

writeln(n);

end.

Пример:

24

Делители 24:

1 2 3 4 6 8 12 24

Comments

спасибо большое.

---

Здравствуйте не могли бы помочь с еще 3 задачами?

---

Вот ссылка https://znanija.com/task/31932078

---

можете помочь? можете помочь? https://znanija.com/task/32003818