Даны m, n,...

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

  1. LAser

    LAser New Member

    Даны m, n, k. Найти a = min(m+n+k, mnk) надо решить в паскале(условный оператор)
     
    LAser, 11 янв 2010
    #1
  2. yulenka

    yulenka New Member

    var
    a,m,n,k:real;
    begin
    readln(m,n,k);
    if (m+n+k)<(m*n*k) then 
    a:=m+n+k
    else
    a:=m*n*k;
    writeln(a);
    end.
     
     
    yulenka, 11 янв 2010
    #2

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

Наша группа