Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, которая находит большее из 3 заданных различных целых чисел и выводит его на экран
просто написать нужно
8 класс

Ответ оставил Гость

Var    a1, a2, a3, max: integer;
 begin 
  writeln(a1=); 
   readln(a1);
    writeln(a2=); 
   readln(a2);   
 writeln(a3=); 
  readln(a3);  
   if a1 > a2 then 
       max := a1    else 
      max := a2;  
  if a3 > max then   
    max := a3;    
writeln (Максимальное из них: , max);
 readln;
end.