Задать вопрос
8 июня, 11:03

Программа на паскале, складывающая супер большие числа (при помощи строк)

+1
Ответы (1)
  1. 8 июня, 14:17
    0
    Var

    s, s1:string;

    a, b:array[1 ... 100]of integer;

    i, n, x, k:integer;

    begin

    readln (s) ;

    readln (s1) ;

    n:=1;

    if length (s) >length (s1) then

    x:=length (s)

    else x:=length (s1) ;

    for i:=1 to length (s) do

    begin

    val (copy (s, i, 1), k, n) ;

    a[i+x-length (s) ]:=k;

    end;

    for i:=1 to length (s1) do

    begin

    val (copy (s1, i, 1), k, n) ;

    b[i+x-length (s1) ]:=k;

    end;

    for i:=1 to length (s) do

    a[i]:=a[i]+b[i];

    for i:=length (s) downto 2 do

    begin

    a[i-1]:=a[i-1]+a[i]div 10;

    a[i]:=a[i]mod 10;

    end;

    for i:=1 to length (s) do

    write (a[i]) ;

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