Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
24 цепочки примеры
АБВ АБГ АБЕ
ВАБ ВАГ ВАЕ и др соблюдая правило
Надо создавать массив примерно так:
var m:array of Point:=(
new Point(0,25), new Point(0,0), new Point(3,0),
new Point(3,12), new Point(16,0), new Point(20,0),
new Point(10,10), new Point(20,25), new Point(16,25),
new Point(7,12), new Point(3,16), new Point(3,25));
8 бит = 1 байт
1024 байта = 1 кбайт
1024 кбайта = 1 Мбайт
и т.д.
0,25 кбайт = 256 байт = 2048 бит
Ответ: 2048 бит.