DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
FOR J = 1 TO 5
A(I, J) = INT(RND * 10)
IF J < I THEN S = S + A(I, J)
A(0, J) = A(0, J) + A(I, J)
PRINT A(I, J); " ";
NEXT J
PRINT
NEXT I
PRINT "SUM="; S
PRINT "VECTOR: ";
FOR I = 1 TO 5
PRINT A(0, I); "; ";
<span>NEXT I</span>
Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.
Термометр,барометр,дозиметр,радиометр.
Чтобы попасть в точку К, надо попасть в точки Е, В, Г, Ж.
В точку Е есть 3 путя.
В точку В - 2.
В точку Г - 2.
В Ж - 2.
Суммируем: 3+2+2+2=9 путей.
Ответ: 9.
а 45 , 34 4,8 [ 1 направить на 2 ] ну
1.а)