Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. pascal abc
aidarisiev80
2
06.06.2019 16:00
1
Другие вопросы по теме Информатика
славка23
29.10.2020 14:44
147387492
29.10.2020 14:44
FEDY200599999M
29.10.2020 14:44
Вета2008
29.10.2020 14:44
rusylan883
08.10.2019 11:10
marek2
08.10.2019 10:11
szhanibekov
08.10.2019 11:10
Witch23
23.03.2019 17:35
медведьш12233213
19.09.2019 14:10
Популярные вопросы
- Описание Черноголово го щегля про голос его дам ( ...
2 - Чем отличаются чулки с коттон-машин от чулок с круглочулочных автоматов?...
1 - Сравните числа: 7,09 и 7,99...
2 - Найдите такое четырехзначное число, в котором равны цифры тысяч...
1 - В чем проявлялось деятельность акционерных обществ и монополистических...
3 - ответьте на вопросы: 1.Почему не совпали точки зрения юриста и...
3 - Какие вещества выделяются с мочей и калом?? ...
1 - нужно Найти все эпитеты, метафоры, сравнения, олицетворения в стихотворении...
1 - написать отзыв на страничку по рассказу 13 лет баруздин кто понравился...
1 - нужен ответ Вычисли общую длину ребер, площадь полной поверхности,...
1
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.
str : string;
begin
write('Введите строку: ');
readln(str);
writeln('Результат: ', str.ToUpper);
end.