Мне кажется, что это слово <u>ФРАГМЕНТ</u>
Вправо
нц 3 раза
нц 3 раза
закрасить, вниз
кц
вправо
кц
Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
p:=p*a;
end;
writeln(p);
end.
2)
var
i,n:integer;
a,max:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a>max then
max:=a;
end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a<min then
min:=a;
end;
writeln(min);
end.