Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. Pascal ABC

Question

Информатика

Викентий

30 сентября, 12:39

Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. Pascal ABC

+3

Ответы (2)

Знаете ответ?

Васса · Answer 1

Var

str : string;

begin

write ('Введите строку: ') ;

readln (str) ;

writeln ('Результат: ', str. ToUpper) ;

end.

Дигна · Answer 2

Var s:string;

i:integer;

begin

readln (s) ;

for i:=1 to length (s) do

if s[i] in ['a' ... 'z'] then write (chr (ord (s[i]) + ord ('A') - ord ('a'))) ;

end.