Ввод с клавиатуры два целых числа без знака и вывод на экран их сумму.

[gelya_17]

Здравствуйте,помогите написать программку на паскале.
Условие:написать программу,котораявводит с клавиатуры два целых числа без знака и выводит на экран их сумму.
Примечание:кол-во цифр не должно превышать 100 и числа записываем в строку(т.е.со стрингом).
Спасибо!

From Stilet: И нечего лезть в чужую тему!

[Sparkman]

Сообщение от gelya_17

Здравствуйте,помогите написать программку на паскале.
Условие:написать программу,котораявводит с клавиатуры два целых числа без знака и выводит на экран их сумму.
Примечание:кол-во цифр не должно превышать 100 и числа записываем в строку(т.е.со стрингом).
Спасибо!

var a,b:integer;
begin
     WriteLn('Enter first digit');
     ReadLn(a);
     WriteLn('Enter second digit');
     ReadLn(b);
     WriteLn('Summary of two digits');
     WriteLn(a+b);
     ReadLn;
end.

PS: примечание не понятно

[Serge_Bliznykov]

примечание не понятно

вот поэтому Ваше решение - неверно!
Это задача на длинную арифметику. причём числа могут быть до 100значных включительно.
ну, поясню на примере.

число а = 12345911102345678912912386790012345
число b = 9021123456789009881223485681228344809234123

чему сумма равна?

gelya_17 - нарушаете правила!! Нельзя в чужую тему влазить. Создавайте свою! (причём, с правильно написанной темой. Например, Задача на сложение 100значных чисел в Pascal

[Sparkman]

Сообщение от Serge_Bliznykov

вот поэтому Ваше решение - неверно!
Это задача на длинную арифметику. причём числа могут быть до 100значных включительно.
ну, поясню на примере.

число а = 12345911102345678912912386790012345
число b = 9021123456789009881223485681228344809234123

чему сумма равна?

gelya_17 - нарушаете правила!! Нельзя в чужую тему влазить. Создавайте свою! (причём, с правильно написанной темой. Например, Задача на сложение 100значных чисел в Pascal

Ответ: 90211234691349209835691645941407315 99246468

function summ(a,b:string):string;
var i,n,d,c1,c2,code:integer;
    s,t:string;
    err : boolean;
begin
     err:=false;
     for i:=1 to length(a) do
         if not (a[i] in ['0'..'9']) then
         begin
              err:=true;
              break;
         end;
     if not err then
     for i:=1 to length(b) do
         if not (b[i] in ['0'..'9']) then
         begin
              err:=true;
              break;
         end;
     if not err then
     begin
          if length(a)>length(b) then
          begin
               n:=length(a);
               for i:=length(b) to n-1 do
               b:='0'+b;
          end else
          begin
               n:=length(b);
               for i:=length(a) to n-1 do
               a:='0'+a;
          end;
          s:='';t:='';d:=0;code:=0;c1:=0;c2:=0;
          for i:=n downto 1 do
          begin
               Val(a[i],c1,code);
               Val(b[i],c2,code);
               Str(c1+c2+d,t);
               d:=0;
               if length(t)>1 then
               begin
                    Val(t[1],d,code);
                    s:=t[2]+s;
                    if i=1 then s:=t[1]+s;
               end else s:=t+s;
          end;
          result:=s;
     end else result:='Число содержит символ(ы)';
end;

[Grag]

Сообщение от Sparkman

Ответ: 90211234691349209835691645941407315 99246468

не по теме:
нет ничего лучше, чем карандаш и бумага...

[Sparkman]

Сообщение от Grag

не по теме:
нет ничего лучше, чем карандаш и бумага...

стринги рулят