Macedonia, FYR MKD
Population, male 1041429
Population, female 1041731
1041731-1041429 = 302
Республика Македония
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>
Даны ДВА числа, а найти минимум из ТРЕХ... не совсем понял
программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer;
begin
if a<b then
M := a
else
M := b;
end;
var a, b, c : integer;
begin
write('A: '); readln(a);
write('B: '); readln(b);
write('C: '); readln(c);
write('Minimum: ', m(m(a,b),c));
end.
# Python 3.X
sym = {10: 'A', 11: 'B', 12: 'C', 13: 'D', 14: 'E', 15: 'F'}
def exp_in(n, g):
ret = 1
while n ** ret < g:
ret += 1
return ret - 1
def base(n, to_base):
''' 2 <= to_base <= 16 '''
if not 2 <= to_base <= 16:
raise ValueError('2 <= to_base <= 16')
ret = ''
for e in range(exp_in(to_base, n), -1, -1):
t = to_base ** e
c = n // t
ret += sym.get(c, str(c))
n %= t
return ret
n, b = [int(input(x)) for x in ['Число: ', 'Степень (2 <= n <= 16): ']]
print('{} (10) = {} ({})'.format(n, base(n, b), b))
Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.