Question

Сна паскаль. (в решение есть ошибки. как написать код правильно? ) два поезда из разных населенных пунктов одновременно выезжают навстречу друг другу и через t часов они встретились. еще через t1 часов первый поезд прибыл в пункт, из которого выехал второй поезд. через какое время второй поезд прибудет в пункт, из которого выехал первый поезд. входные данные два целых неотрицательных числа t и t1 (не превосходят 24). выходные данные вывести время, через которое второй поезд прибудет в конечный пункт в формате часы минуты. var t,t1,t2,a,a1,x,x1: real; begin read(t); read(t1); a: =t*60; a1: =t1*60; t2: =a*a/a1; x: =t2 div 60; x1: =t2 mod 60; writeln(t2: 0: 0,' ',x: 0: 0,' ',x1: 0: 0); end.

Answer 1

Var t,t1,t2,x,x1:real;

begin
readln(t);
readln(t1);

t2:=t*t/t1;

x:=trunc(t2);
x1:=frac(t2)*60;

writeln(t2,' ',x:0:0,' ',x1:0:0);
end.

Пример:
4.5
3
6.75 6 45

Answer 2

А дело всё в том, что операция mod на типе real не работает.
Ради работо придётся либо менять алгоритм, либо жертвовать точностью, округляя t2:

var
    t, t1, t2, a, a1, x, x1: real;
begin
    readln(t);
    readln(t1);
    a := t * 60;
    a1 := t1* 60;
    t2 := (a * a) / a1;
    x := t2 div 60;
    x1 := Round(t2) mod 60;
    writeln(t2:0:0,' ',x:0:0,' ',x1:0:0);
end.