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;
readln(n);
writeln('Делители ',n,':');
for i:=1 to n div 2 do
if n mod i=0 then write(i,' ');
writeln(n);
24
Делители 24:
1 2 3 4 6 8 12 24
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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