Question

Дано два вещественных числа A и B. Найти произведение целых частей этих чисел.

Answer 1

На Паскаль абс:
var a,b:real;
 begin
  readln(a,b);
  writeln(trunc(a)*trunc(b));
 end.