ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
полож, черед: КЛЮЧ;
УКАЗ
черед := ВКЛ;
число := Приём.Число();
полож := число > 0;
ПОКА число # 0 ВЫП
Вывод.Цепь("^");
ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО
черед := ОТКЛ
КОН;
число := Приём.Число();
полож := число > 0
КОН;
ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН
КОН Задание.
Клавиaтура тут ни при чём, нужен тeкстовый редактор с поддержкой
автодополнения слов и словарём для русского языка. Почитай "Предиктивный
ввод текста" в Википeдии.
Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
Махеев- история и татарский
Вагапов - физика и английский
Тиунов - краеведенье и информатика