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

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

+2
Ответы (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программа на паскале, складывающая супер большие числа (при помощи строк) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите сделать программу в Паскале В котором 1) Программа выдает сообщение "Вы маль или дево" 2) Пользователь в переменную ST1 задает значение маль или дево 3) Программа выдает сооб "Ты пошла бы играть в куклы" 4) Вводить ответ через переменную
Ответы (1)
Злой хакер хочет испортить программное обеспечение на 40 компьютерах компании. На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода.
Ответы (2)
1. Предсказать, что напечает программа на Паскале (c объяснением). var x : word; A : array[0 ... 1] of byte absolute x; begin x : = 709; writeln (A[0], ' ', A[1]) ; readln; end; 2. Предсказать, что напечает программа на Паскале (c объяснением).
Ответы (1)
Что относят к утилитам? Экономическая информатика антивирусная программа программа архивации данных программа диагностики дисков операционная оболочка программа обслуживания сети операционная система
Ответы (1)
Расположите запросы в порядке возрастания количества страниц. а) учитель / журнал/программа б) (учитель/журнал) & программа в) учитель& программа г) учитель&журнал&программа
Ответы (1)