Вычислить Все Суммы Двухзначных Чисел

Тема в разделе "Pascal and Delphi", создана пользователем antonborodin, 21 янв 2012.

  1. antonborodin

    antonborodin Гость

    Помогите пожалуйста разобраться. Задача - составьте программу вычисления всех сумм двухзначных чисел на паскале.

    Сделал а потом понял что это не то и теперь не могу понять что нужно. Вот что я сделал

    Код (Delphi):
    program task;
    var
    a,b,x : integer;
    const
    error = 'Error! Enter two-digit number.';
    begin
    Write('Enter a =');
    ReadLn(a);
    if (a <= 99) and (a >= 10) then
    begin
    Write('Enter b =');
    ReadLn(b);
    if (b <= 99) and (b >= 10) then
    begin
    x := a+b;
    WriteLn('a + b = ',x);
    end
    else
    Write(error);
    exit;
    end
    else
    WriteLn(error);
    exit;
    end.
     
  2. Cambur

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    привет! "вычисление всех сумм двухзначных чисел" - не понятно.
    ты сделал "вычисление суммы при условии, что числа - двузначные"
    можно сделать "сумму всех двузначных чисел" - просто просуммируй в цикле... наверное это и требуется.
     
Загрузка...

Поделиться этой страницей