var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.
CLS
N = 0
DIM A(4,
7)
DATA
51,22,33,44,-25,76,-87
DATA
229,30,-81,882,43,84,85
DATA
37,88,99,10,34,33,23
DATA
34, 55, 66, -77, 86, 65, 32, 91
FOR i
= 1 TO 4
FOR j =
1 TO 7
READ
A(i, j)
PRINT
A(i, j);
IF A(i,
j) < 0 THEN
N = N +
1
END IF
NEXT j
PRINT
NEXT i
PRINT
<span>PRINT "N ="; N
</span>
<span>именование компьютеров(локальная,глобальная сеть)</span>
Алгоритм « фасоль» (Циклический)