как вариант:
var
a, b, h : integer;
begin
a := readInteger('введите a = ');
b := readInteger('введите b = ');
h := readInteger('введите h = ');
writeln('площадь поверхности стен равна ', 2*a*h+2*b*h);
end.
Задание1 :
var i,t:integer;
a:array[1..7] of integer;
begin randomize;
for i := 1 to 7do begin
a[i] := round( random(17)-7 );
write(a[i]:3);
end;
t := 0;
for i := 1 to 7 do
if a[i] < 0 then
inc(t);
writeln;
writeln(t);
readln;
<span>end.
Задание 2: </span>
Обозначения:
A = (x&A≠0)
B= (x&14≠0)
C= (x&75≠0)
----------------------------
1) A→(¬B→C) =1
¬A+(B+C)=1
A=B+C
2) 14 (10cc)=1110 (2cc)
75= (10cc)=100 1011 (2cc)
3) 100 1011 (+ поразрядное логическое сложение)
000 1110
------------
100 1111 = 79 (10cc) ответ 79
Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.