Question

введение в паскаль.​

Answer 1

Ответ:

1) var

 a1, a2, a3, max, min: integer;

 

begin

 readln(a1, a2, a3);

 max := a1;

 min := a1;

 

 if a2 > max then  

   max := a2;

 if a3 > max then  

   max := a3;

 

 if a2 < min then  

   min := a2;

 if a3 < min then  

   min := a3;

 

 writeln('Max: ', max, '. Min: ', min);

end.

3) var

   num,modulo: integer;

begin

   write('Number: ');

   readln(num);

   modulo:= num mod 5;

   case modulo of

       0: writeln(num,' делится на 5');

   end;

end.

Объяснение: