Нужно написать программу, что бы буквы заменялись на на "заглавные", а не те, что стоят перед ними в английском алфавите. PascalABC
Program eX_1;
var s: String;
n, i, b, j: longint;
c: char;
begin
writeln ('Введи текст из сообщения выше:') ;
readln (s) ;
for i:=length (s) downto 1 do
if s[i] in ['a' ... 'z'] then s[i]:=Upcase (s[i])
else if s[i] in ['A' ... 'Z'] then s[i]:=chr (ord (s[i]) + 32)
else if s[i] in ['0' ... '9'] then delete (s, i, 1) ;
write (s) ;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужно написать программу, что бы буквы заменялись на на "заглавные", а не те, что стоят перед ними в английском алфавите. PascalABC Program ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Функция для определения позиции буквы в слове, не могу найти ошибку. var slovo : string; i : integer; function ups (var s : string; ch : char) : integer; var i, n : integer; begin for i:=1 to length (s) do if s[i]=ch then n:=i else n:=0; ups:=n; end;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Var St: string; z:string[10]; x:string[2]; i: integer; Begin Write ('введите строку текста - St') ; Readln (St) ; z:='0123456789'; i:=1; while i
Ответы (1)
Отметьте все правильные объявления символьных строк. var s: string; var string: s; var s, s1, s2: array[1 ... 10] of char; var s1, s2: integer; var s, s1, s2: string;
Ответы (1)
Помогите с ответом
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
вывести формулу расчёта для решения задач типа: сколько граммов соли нужно добавить к А г а %-го раствора этой соли для получения в %-го раствора?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
Запишите уравнения реакций дегидрирования пропана и бутана и попробуйте дать названия продуктам по аналогии с этиленом.
Нет ответа
Аргументы за и против того что Слова категории состояния являются самостоятельной частью речи
Нет ответа