Question

program GOVNO;
var c,Q,m,t1,t2:integer;
x1,x2,x3:integer;
begin
writeln ('введите значение Q');
readln (Q);
writeln ('введите значение m');
readln (m);
writeln ('введите значение t1');
readln (t1);
writeln ('введите значение t2');
readln (t2);
x1:=Q;
x2:=m;
x3:=t2-t1;
c:=x1/(x2*x3); <= Проблема здесь

end.


Program1.pas(16) : Нельзя преобразовать тип real к integer

Помогите запустить программу

Answer 1

Поменяй '/' на 'div'

______________