Var p: array[1..12] of integer;
begin
var min: integer;
var max: integer;
randomize;
for var i := 1 to 12 do p[i] := random(100);
min := p[1];
max := p[1];
for var i:= 1 to 12 do if p[i] < min then min := p[i];
for var i:= 1 to 12 do if p[i] > max then max := p[i];
writeln(max/min);
end.
Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.
O: 00
Л: 01
А: 10
З: 11
К: 100
ЗАКОЛКА -> 11 10 100 00 01 100 10 = 1110 1000 0011 0010 = E832<span>
</span>
Ставим курсор на элемент I4 и вставляем в него следующую формулу:
<h2>=СЧЁТЗ(C4:H4)</h2>
Моря окружают материки. Море напоминает степь. Металл вытесняет дерево. Поспешность увеличивает страх. Серебро заменяет золото