Задать вопрос
28 февраля, 11:46

С клавиатуры вводят строку, состоящую из латинских букв

и цифр. Написать программу, которая вычисляет сумму цифр, попадающихся в этой

строке, а также выводящую строку после исключения из неё этих цифр. Для паскаль abc.

+5
Ответы (1)
  1. 28 февраля, 12:01
    0
    Var s, al:string; a, i:integer;

    begin

    read (s) ;

    al:='1234567890';

    i:=length (s) ;

    while i>0 do begin

    if poa (s[i], al) 0 then begin a:=a+strtoint (s[i]) ; delete (s, i, 1) ; end;

    i:=i-1;

    end;

    writeln (Сумма: ', a) ;

    writeln ('Строка без цифр: ', s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводят строку, состоящую из латинских букв и цифр. Написать программу, которая вычисляет сумму цифр, попадающихся в этой ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
помогите решить задачю по информатике С клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. Найти сумму всех введеных чисел.
Ответы (1)
1. Переключение клавиатуры с режима ввода латинских букв на режим ввода русских букв и обратно? 2. переключение клавиатуры с режима ввода строчных букв на режим ввода прописных букв и обратно? 3.
Ответы (1)
Вася учится в школе. Недавно учитель записал на доске строку из строчных латинских букв и цифр, а Вася переписал эту строку в тетрадку. Придя домой, Вася столкнулся с проблемой в прочтении строки.
Ответы (1)
Помогите сделать хотя бы один из них но желательно два прошу вас 1. Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове '' память''. 2.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)