//PascalABC.Net 3.2.0.1467
begin
var h := ReadlnReal('Высота =');
var w := ReadlnReal('Ширина =');
var l := ReadlnReal('Длина =');
Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
Ответ:
program Elevator;
var
n, k, a, b: Integer;
s: string;
begin
Write ('Введите n, k, a, b: ');
ReadLn (n, k, a, b);
WriteLn ('На лифте = ', (k + n - 2) * b, ' По лестнице = ', (n - 1) * a);
ReadLn;
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 s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>