Напишите программу, которая выводит на экран N (задается константой) случайных букв латинского алфавита в виде пары: заглавная буква, строчная буква. Например, при N = 6 могут быть выведены пары: Kk Dd Qq Nn Bb Rr Мой набросок...
Напишите программу, которая выводит на экран N (задается константой) случайных букв латинского алфавита в виде пары: заглавная буква, строчная буква. Например, при N = 6 могут быть выведены пары:
Kk
Dd
Qq
Nn
Bb
Rr
Мой набросок:
Program charrr;
Const n=6;
Var ch:char;
i:integer;
Begin
Randomize;
For i:=1 to n do
Begin
ch:=chr(random(26)+97);
writeln(UpCase(ch),ch);
End;
readln;
End.
Нужно сделать без UpCase (обязательно!)
Гость
Ответ(ы) на вопрос:
Гостьprogram charrr;
const
n = 6;
var
i,k: integer;
begin
Randomize;
for i := 1 to n do
begin
k:=random(26) + $41;
writeln(chr(k),chr(k+32))
end
end.
Не нашли ответ?
Похожие вопросы