Значения переменных a и b после выполнения фрагмента программы a: =1; b: =10; a: =a+b; b: =a-b; a=a-b; 1) останутся прежними. 2)поменяются местами. 3)станут равными соответственно в сумме и разности прежних своих значений .
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, b: real;
begin
a := 1;
b := 10;
a := a + b;
b := a - b;
a := a - b;
writeln('a=', a);
writeln('b=', b);
end.
Вывод
a=10
b=1
Вариант 2