Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
2
Добавлен:
15.06.2014
Размер:
349 б
Скачать
program lab_2_2;
var
n :integer;
begin
writeln('Vvedite N: ');
readln(n);

write('Otvet: ');
case n of
0..9: writeln(n);
10: writeln('a');
11: writeln('b');
12: writeln('c');
13: writeln('d');
14: writeln('e');
15: writeln('f');
else writeln('Nepravilnoe 4islo');
end;
readln;
end.
Соседние файлы в папке лабы 5