с информатикой Справка о междугороднем телефонном разговоре содержит: номер телефона абонента (6
цифр), дату (год, месяц, день), время (час, минута), код города (3 цифры), номер телефона
в другом городе (7 цифр), продолжительность разговора (в минутах), категорию
, обычный) и тариф (плата в рублях за минуту). Вывести на экран код города и
номер телефона в другом городе для телефонных разговоров, состоявшихся с телефона
235678 8 марта 1996 года
Объяснение:
1
program Middle;
var
mid, x1,x2,x3 : integer;
begin
write('input x1, x2, x3 ');
readln(x1,x2,x3);
if x1 < x2
then if x1 < x3
then if x2 < x3
then mid := x2
else mid := x3
else mid := x1
else if x1 > x3
then if x2 < x3
then mid := x3
else mid := x2
else mid := x1;
writeln ('Middle is ',mid);
end.
2
program pifagor;
var
Cat1, Cat2, Hyp, Space : real;
begin
write ('Cat1, Cat2 :');
Readln (Cat1, Cat2);
Hyp := sqrt (sqr(Cat1)+sqr(Cat2));
Space := (Cat1 * Cat2)/2;
WriteLn ('By Cat1 =',Cat1:5:2,' and Cat2 = ',Cat2:5:2,' Hyp is: ',Hyp:5:2, ' Space is: ',Space:5:2);
end.