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

Question

Информатика

Галинуша

24 мая, 11:01

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

+4

Ответы (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.