Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы Паскаль / лабы 5 / LAB_2_2
.PAS 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.
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