Var DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer; begin readln(DepHour,DepMin,DurHour,DurMin); if DepMin+DurMin>=60 then begin ArrHour:=DepHour+DurHour+1; ArrMin:=DepMin+DurMin-60; end else begin ArrHour:=DepHour+DurHour; ArrMin:=DepMin+DurMin; end; write(ArrHour,':',ArrMin); end.
Если Вашу программу исправить, это так будет выглядеть: var a,b,c,p:real; begin writeln('введите размеры треугольника a,b,c'); read(a,b,c); p:=a+b+c; if (a=b) and (a=c)then begin writeln('треугольник равносторонний'); writeln('периметр треугольника',p); end else writeln ('треугольник не равносторонний'); end.
А если написать самостоятельно, я бы сделал так: var a,b,c:real; begin Write('Введите размеры треугольника a,b,c: '); Read(a,b,c); if (a=b) and (a=c) then Writeln('Треугольник равносторонний с периметром ',3*a) else Writeln ('Треугольник не равносторонний') end.
Z:=Z/5;
Write(X,Y,Z);