profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

Определить максимальное и минимальное из трех вещественных чисел, вводимых с клавиатуры.

  1. Ответ
    Ответ дан 220voltvip
    program project1777;
    uses  math,  Classes ;
     var   x,y,z:integer; 
     begin     
      writeln('vedite 1 chislo');readln(x);   
      writeln('vedite 2 chislo');readln(y); 
       writeln('vedite 3 chislo');readln(z); 
       begin
         if ((x>y) and (x>z)) then     writeln('samoe bolshoe chislo ',x) 
       else   
      if ((y>x) and (y>z)) then     writeln('samoe bolshoe chislo ',y)   
     else 
       if ((z>x) and (z>y)) then  
     writeln('samoe bolshoe chislo ',z); 
        end;     
    begin   
      if ((x<y) and (x<z)) then 
       writeln('samoe malenkoe chislo ',x)
         else 
       if ((y<x) and (y<z)) then   
     writeln('samoe malenkoe chislo ',y) 
       else   
     if ((z<x) and (z<y)) then 
       writeln('samoe malenkoe chislo ',z);
         end;
       readln;
       end.
Самые новые вопросы