Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. Pascal ABC
10-11 класс
|
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.
var
str : string;
begin
write('Введите строку: ');
readln(str);
writeln('Результат: ', str.ToUpper);
end.
Другие вопросы из категории
Если в слове А его вторую половину, буквы которой образуют слово В, заменить на слово С, то получится слово Д. Слова А и Д- носители информации в компьютерах первых поколений; В- чертёж поверхности Земли; С- элемент матричного принтера.
В ответе запишите через один пробел сначала слово, которое зашифровано буквой А , затем слово, зашифрованное буквой С. Например дискета диск.
Ivanov
Pugachov
Sidirov Vasya
Hello world!!!
Что будет на экране если выполнить данный фрагмент программы
Читайте также
и удовлетворяют след. свойству:
- слово совпадает с начальным отрезком латинского алфавита ('a','ab','abc' и т.д.)
P.s. Только решить её надо не использую строки.Вместо них array of char...
Пример ввода:
writeln('Введите предложение, символ конца - точка');
i := 0;
repeat
inc(i);
read(a[i])
until (a[i] = '.')or(i = n);
Заранее огромное спасибо.
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.
чем у последующего
пяти звездочек (*****), а в конец строку из пяти символов черточек (-----).