Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Verder
0 / 0 / 0
Регистрация: 12.03.2013
Сообщений: 24
1

Найти сумму чисел строки

01.10.2014, 17:22. Просмотров 1035. Ответов 3

Даны 2 строки, длиной не более 6 символов,содержащие только цифры. Найти сумму данных чисел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2014, 17:22
Ответы с готовыми решениями:

Найти сумму всех двузначных чисел из строки
Помогите пожалуйста! Дана строка, состоящая из слов и чисел, разделенных...

Строки. Найти сумму чисел стоящих на четных позициях
Необходимо найти сумму чисел стоящих на четных позициях в числе. Т.е. вводим...

Из 5 введенных чисел найти сумму положительных, сумму отрицательных, а также их количество
С клавиатуры вводится 5 чисел. Написать программу, которая найдет сумму...

Найти сумму наиболее длинной цепочки положительных чисел и выдать сумму и длину
Создать массив из 20-ти случайных чисел из диапазона от -10 до +10 и найти...

Массив: Найти их сумму и сумму чисел, разделенных на 2, сравнить эти суммы между собой.
Нужно написать программу используя одномерные массивы. Буду благодарен. Есть...

3
erl27
894 / 742 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
01.10.2014, 18:25 2
Pascal
1
2
3
4
5
6
7
8
9
var
  S1, S2: String;
 
begin
  writeln('Введите две строки чисел:');
  readln(S1);
  readln(S2);
  writeln('Сумма: ', StrToInt(S1) + StrToInt(S2))
end.
1
Антон1985
116 / 87 / 93
Регистрация: 03.02.2014
Сообщений: 367
02.10.2014, 21:05 3
Лучший ответ Сообщение было отмечено Verder как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
const
  max=10;
var
  ch:array['a'..'c',0..max]of byte;
  x:string;
  i,j,cp:integer;
begin
  write('ïåðâГ*Гї ñòðîêГ*: '); readln(x);
  j:=0;
  for i:=length(x) downto 1 do
  begin
    ch['a',j]:=StrToInt(x[i]);
    Inc(j);
  end;
  write('âòîðГ*Гї ñòðîêГ*: '); readln(x);
  j:=0;
  for i:=length(x) downto 1 do
  begin
    ch['b',j]:=StrToInt(x[i]);
    Inc(j);
  end;
  cp:=0;
  for i:=0 to max do
  begin
    ch['c',i]:=ch['a',i]+ch['b',i]+cp;
    if ch['c',i]>9 then
    begin
      Dec(ch['c',i],10);
      cp:=1;
    end
    else
    begin
      cp:=0;
    end;
  end;
  j:=max;
  while (ch['c',j]=0)and not(j<0) do Dec(j);
  if j<0 then
    x:='0'
  else
  begin
    x:='';
    for i:=j downto 0 do
      x:=x+IntToStr(ch['c',i]);
  end;
  writeln('Summa: ',x)
end.
Добавлено через 6 минут
Значение константы max поменяйте на другое, если с другие размеры чисел хотите складывать, например на сто или даже на двухсотзначные числа.

Добавлено через 1 минуту
Для примера программу запостил
1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
03.10.2014, 15:09 4
Или вот: Сложение чисел в системе счисления с основанием P
Функция NPlus
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2014, 15:09

Найти сумму десятков двух чисел и сумму их единиц
1.)Даны два числа. Найти сумму их десятков и сумму их единиц. 2.)Дано число....

Найти сумму нечётных чисел и количество чётных чисел в двух массивах
Пусть дано 2 массива. Составить программу для нахождения суммы нечетных чисел и...

Найти в заданном виде сумму заданных чисел, не вычисляя самих чисел.
Своими цифрами в массивах K(M) и L(N) заданы 2 целых числа в p-ичной системе...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru