1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
1)
var x,s:real;
begin
readln(x);
s:=cos(x) - sin(x) + abs(x-7) + x*x - 1;
writeln (s)
<span>end.
2)
var x,y,s:real;
begin
readln(x,y);
s:=(x+y)/2;
writeln(s)
<span>end.
3)
var x,y:real;
begin
readln(x);
if x<0 then y:=x*x-5;
if x=0 then y:=3;
if x>0 then y:=x-3;
writeln(y)
<span>end.</span></span></span>
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
Б) 0:05. Это рейс с пересадкой в Москве.
Несмотря на множество рейсов, вариантов перелёта всего 4: прямой до Лондона, с пересадкой в Москве, с пересадкой в Праге и с двумя пересадками в Москве и Праге.
Прямой рейс уже улетел, пассажир будет в Лондоне завтра в 22:25
Через Москву пересадка займёт 20 минут и он будет в Лондоне в 0:05.
Через Прагу не получится, так как Лондонский рейс вылетает за 40 минут до прилёта Киевского и надо сутки ждать в Праге.
А две пересадки тоже не катят, надо полдня ждать в Праге.