Меню сайта

Задача №4

Дано целое число —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

Меню раздела
Блок