Question

Нарисовать блок-схемы и написать задачи на языке Паскаль в тетради: 1.программа выбирает случайное трёхзначное число делает его "перевертышом", то есть записывает наоборот. например если 123 то 321.
2. есть координаты точек в
пространстве х1, х2, у1, у2,z1 и z2. необходимо найти расстояние между данными точками. ​

Answer 1

Программа 1:

program test;

var N : integer;

begin

Randomize;

N := Trunc(Random(899) + 100);

WriteLn('Исходное число - ', N);

Write('Перевёрнутое число - ');

While N > 0 do begin

 write(N mod 10);

 N := N div 10

end;

writeln

end.

Программа 2:

Program test1;

Uses Math;

var

 K1, K2 : array [1..3] of real;

 i : integer;

 L : real;

begin

write('Введите координаты X, Y, Z первой точки: ');

for i := 1 to 3 do Read(K1[i]);

write('Введите координаты X, Y, Z второй точки: ');

for i := 1 to 3 do Read(K2[i]);

L := 0;

{Суммируем квадраты разностей между одноимёнными координатами}

for i := 1 to 3 do L := L + Power( (K1[i] - K2[i]), 2);

WriteLn('Расстояние между точками L = ', sqrt(L):8:3 )

end.