program ms301;
var a,b,c:integer;
begin
writeln('Введите три числа');readln(a,b,c);
A:=sqrt(a);
B:=sqrt(b);
c:=sqrt(c);
writeln(a,', ',b,', ',c);
readln;
end;
А истинно
В ложно
С ложно (у вершины дерева м.б. только 1 предыд.вер.)
Е- истинно
F-истинно
G -только волк и гусь
H- ложно
D-да(лошадь)
J-истинно
K-ложь
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
2017(8) = 2 * 8³ + 0 * 8² + 1 * 8¹ + 7 * 8^0 = 1039
И дальше также:
2 * 7³ + 0 * 7² + 1 * 8¹ + 7 * 8^0
И т.д. до 5
//PascalABC.NET
var
m,r:real;
begin
Writeln('Введите масштаб карты (кол-во км в 1 см)');
Readln(m);
Writeln('Введите расстояние между точками, изображающими населенные пункты (см)');
Readln(r);
Writeln('Расстояние между населенными пунктами: ',m*r,' км');
<span>end.</span>
