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

Question

Информатика

Леония

8 января, 14:43

Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. 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.