Задать вопрос
30 сентября, 12:39

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

+5
Ответы (2)
  1. 30 сентября, 14:24
    0
    Var

    str : string;

    begin

    write ('Введите строку: ') ;

    readln (str) ;

    writeln ('Результат: ', str. ToUpper) ;

    end.
  2. 30 сентября, 14:26
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дана строка, состоящая из латинских строчных букв, заменить их аналогичными прописными буквами. Pascal ABC ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы