<em>var c:real;</em>
<em>begin</em>
<em> read(c);</em>
<em> writeln(c*2);</em>
<em>end.</em>
Ответ:
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 i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>