1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
Программа на питоне, делающая то, что написано в условии:
numbers = range(3, 3001, 3)
numbers_base16 = ("{:03x}".format(n) for n in numbers)
srebmun_base16 = (s[::-1] for s in numbers_base16)
srebmun_base16_sorted = sorted(srebmun_base16, reverse=True)
numbers_base16_sorted = (s[::-1] for s in srebmun_base16_sorted)
numbers_sorted = (int(s, 16) for s in numbers_base16_sorted)
i = 1
while next(numbers_sorted) != 1971:
i += 1
print(i)