Помогите пожалуйста Найти...

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

  1. Deen

    Deen New Member

    Помогите пожалуйста Найти среднее арифметическое трех введенных чисел
     
    Deen, 18 мар 2010
    #1
  2. Leiter

    Leiter New Member

    Pascal abc?

    код:
    program abc;
    var a,b,c: real; //(если целый тип, то integer),
    begin
    readln(a);
    readln(b);
    readln(c);
    writeln((a+b+c)/3);
    end.
     
    Leiter, 18 мар 2010
    #2

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

Наша группа