10010111=
2625252625262626
10000000=2625252525252525
10010010
=262525262525262520
Ответ:
Название переменных и их зависимость друг от друга
<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>