var m,u:real;
begin
write('Введите массу тела (кг): '); readln(m);
write('Введите скорость тела (м/c): '); readln(u);
write('Кинетическая энергия тела = ',(m*u.Sqr)/2,' Дж');
end.
Пояснение:
Функция .Sqr для числа возвращает его квадрат
var m,u:real;
begin
write('Введите массу тела (кг): '); readln(m);
write('Введите скорость тела (м/c): '); readln(u);
write('Кинетическая энергия тела = ',(m*u.Sqr)/2,' Дж');
end.
Пояснение:
Функция .Sqr для числа возвращает его квадрат