Найдите сумму и...

Тема в разделе "Информатика", создана пользователем _KoSHa_, 3 апр 2010.

  1. _KoSHa_

    _KoSHa_ New Member

    Найдите сумму и произведение трех чисел, вводимых с клавиатуры
     
    _KoSHa_, 3 апр 2010
    #1
  2. Ииииии

    Ииииии New Member

    Код PascalABC:
     
    program Z1;
    uses crt;
    var
    a,b,c,r,r1:real;
    begin
    writeln('Введите 1, 2 и 3 числа ');
    readln(a,b,c);
    r:=a+b+c;
    r1:=a*b*c;
    writeln('Сумма чисел: ',r);
    writeln('Произведение чисел ',r1);
    end.
     
    Ииииии, 3 апр 2010
    #2

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

Наша группа