Program time; uses crt; var HH,MM,HP,MP,HR,MR,ost:integer; begin write('Vvedite vremya otvravki : '); read(HH); read(MM); writeln; write('vvedite prodolgitelnost poleta: '); read(hp); read(mp); clrscr; writeln('Otpravleniye somolyata v ',hh,':',mm);
MR:=mm+mp; if mr>59 then begin ost:=mr mod 60; MR:=ost; HR:=HR+(MR div 60); end;
HR:=HH+HP; if hr>24 then hr:=hr - 24;
Writeln; Write('Pributie samolyota v ', HR,':',MR); writeln;
end.
данный можно сразу вводить через пробел... например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка...не совсем правильно считает... подожди исправлю
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.