Дано целое число —N —(1 —? —N —? —26). Вывести —N —первых прописных —(то есть заглавных) букв латинского алфавита.
Program stroka4-
Var i,a:byte-
b:char-
begin
writeln (‘введите число больше 0 и меньше 27’)-
readln(a)-
for i:= 1 to a do
begin
b:=Chr(64+i)-
write(b,’ ‘)-
end-
readln-
end.
Категория: Строки |
Дата: 12.01.13