А2=12
В2=4
С2=4
Соответственно D2 тоже должно быть равно 4 (по диаграмме)
То есть B2=8 (4*2=8)
1) 111111
2) 111
..............
Program keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end. <span>
</span>
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.