Case,как я знаю,это оператор множественного выбора...Посмотрите образец в файле :)
Без ОС
-- дверной звонок
с ОС
-- автоматический электрочайник
<span>-- термореле
это всё что я знаю!</span>
Var
i, k, n1, n2: integer;
begin
n1 := 0;
n2 := 0;
{предполагается, что нумерация домов начинается с 1}
writeln('Вводите количество жителей в порядке возрастания номеров домов');
writeln('Окончание ввода - по отрицательному значению');
i := 1;
repeat
read(k);
if k > 0 then
begin
if i mod 2 = 0 then n2 := n2 + k
else n1 := n1 + k;
i := i + 1
end
until k < 0;
write(#13#10, 'Большее количество людей проживает на ');
if n1 > n2 then writeln('левой стороне улицы.')
else writeln('правой стороне улицы.')
end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов
Окончание ввода - по отрицательному значению
13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7
радио (А.Попов)
1895 - первое публичное сообщение об открытии
.............................................................................