Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 15
1

Подсчитать количество цифр в заданной строке, вычислить их сумму и вставить после каждой цифры ее дополнение до 10

26.12.2013, 21:58. Показов 2283. Ответов 1
Метки нет (Все метки)

Строки

Задание
Составьте алгоритм и программу обработки введенной с клавиатуры строки в соответствии с вариантом задания с использованием стандартных функций и процедур для работы со строками.

Вариант 3
Подсчитать количество цифр в заданной строке, вычислить их сумму и вставить после каждой цифры ее дополнение до 10.

Помогите....
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2013, 21:58
Ответы с готовыми решениями:

После каждого символa '!' вставить символ 'I' и подсчитать общее количество цифр в строке
После каждого символa '!' вставить символ 'I' и подсчитать общее количество цифр в строке.

После каждого символа “!” вставить символ “I” и подсчитать общее количество цифр в строке
После каждого символа “!” вставить символ “I” и подсчитать общее количество цифр в строке....

В каждой строке заданной матрицы A(N, M) вычислить сумму, количество...
В каждой строке заданной матрицы A(N, M) вычислить сумму, количество и средне арифметическое...

Подсчитать количество цифр во введенной строке и вычислить их сумму
Поможет кто? В текстовое поле вводится строка из цифр. При нажатии кнопки «Пуск» запускается...

1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,266
Записей в блоге: 1
27.12.2013, 13:05 2
Лучший ответ Сообщение было отмечено Great_Stuff95 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Var s:string;
    i,sum,k,t:integer;
Begin
    write('Строка: ');readln(s);
    i:=1;
    While i<=Length(s) do
    Begin
      if s[i] in ['0'..'9'] then
      Begin
        inc(k);
        t:=ord(s[i])-48;
        sum:=sum+t;
        t:=10-t;
        if t<>10 then Insert(chr(48+t),s,i+1) 
         else 
         Begin
           Insert('10',s,i+1);
           inc(i,2);
         End;
        inc(i);
      End;
      inc(i);
    End;
    writeln('Сумма = ',sum);
    writeln('Цифр = ',k);
    writeln('Полученная строка = ',s);
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2013, 13:05

В каждой строке заданной матрицы вычислить сумму, количество и средне арифметическое положительных элементов
Здравствуйте, не получается написать программку. В каждой строке заданной матрицы вычислить сумму,...

В каждой строке заданной матрицы вычислить сумму, количество и среднее арифмитическое положительных элементов
Задача - в каждой строке заданной матрицы A(N,M) вычислить сумму, количество и среднее...

В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое положительных элементов решение
В каждой строке заданной матрицы A (M;N) вычислить сумму количество и среднее арифметическое...

Вставить 3 звездочки после каждой цифры в строке
Условие задачи: вводить строки, завершение ввода - строка end. Затем в строках добавить *** после...

Подсчитать количество цифр в числе, не превосходящих заданной пользователем цифры
Подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры.

В заданной строке после каждой буквы Ch вставить строку Str1
В заданной строке после каждой буквы Ch вставить строку Str1


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru