Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
<span>3)program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.
Пример:
</span><span>b=5
h=4
p=18</span>
var
a:array [1..100] of integer;
i,n,k:integer;
f:boolean;
begin
write ('Razmer massiva (N<100): ');readln(n);
for i:=1 to n do begin
a[i]:=random(36)-10;
write (a[i],' ');
end;
writeln;
write ('Number: ');readln(k);
f:=false;
for i:=1 to n do
if a[i]=k then f:=true;
writeln (f);
readln;
end.
Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.