Являлись перфокарты и перфоленты
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
Ответ:
var
fi, fo: Text;
n, m, a, b: Integer;
s: string;
begin
Assign (fi, 'INPUT.TXT');
Reset (fi);
Read (fi, n, m, a, b);
Close (fi);
Assign (fo, 'OUTPUT.TXT');
Rewrite (fo);
WriteLn (fo, (m + n - 2) * b);
WriteLn (fo, (n - 1) * a);
Close (fo);
end.
Объяснение:
по лестнице:
n - 1 этажей, а секунд на этаж, время = (n - 1) * a
n - 1 потому, что Миша находится на первом этаже, а не на нулевом
на лифте:
лифт едет на 1-этаж: k - 1
Миша едет к себе: n - 1
всего этажей = (k - 1) + (n - 1) = (k + n + 2)
общее время = (k + n + 2) * b
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
