Программа 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.
Поделитесь своими знаниями, ответьте на вопрос:
Құжаттағы тақырыптар тізімі қалай аталады?
print('--- 1 ---')
b = float(input('Введите b: '))
a = b**3/9-6.4*(b+8)+3*b/4
print('a =', a)
print()
print('--- 2 ---')
a = float(input('Введите a: '))
b = float(input('Введите b: '))
d = a**3*b/7-2*a*b**2*(a+b)
print('d =', d)
print()
print('--- 3 ---')
a = float(input('Введите a: '))
b = float(input('Введите b: '))
q = (3*a**3-2*a*b+b**2)/(2*a*(3*a-b))
print('q =', q)
print()
print('--- 4 ---')
x = float(input('Введите x: '))
y = float(input('Введите y: '))
k = x**3-4*x*y*(x+y**2)
print('k =', k)
print()
print('--- 5 ---')
v = float(input('Введите v: '))
h = abs(v+1.7)*(2*v+3)
print('h =', h)