Дано: А10=49 и В10=7. Вычислить Р=А*В, С=А/В. Результаты представить в прямом коде.

Question

Дано: А10=49 и В10=7. Вычислить Р=А*В, С=А/В. Результаты представить в прямом коде.

Answer 1

Если я правильно понял задачу:
program qwer;
uses crt;
var a, b, c, p : real;
Begin
  a := 49 / 10;
  b := 7 /10;
  p := a * b;
  c := a / b;
  write(p,' ',c);
End.