урок 9 задача 6

урок 9 задача 6

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and. (Если не получается - см. разбор решения(link is external))
С вложенными блоками (без and, все операторы if должны быть в полной форме).
(Если не получается - см. разбор решения(link is external))
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
(Если не получается - см. разбор решения(link is external))

решение 1:

program Project1;
  var
    a,b,c :integer;
begin
  writeln('ведите число a');
  readln(a);
   writeln('ведите число b');
   readln(b);
    writeln('ведите число c');
    readln(c);

   if (a>b) and (a>c) then

    writeln('наибольшие число=a') ;
    readln();

   if (b>a) and (b>c) then

     writeln('наибольшие число=b') ;
     readln();

    if (c>b) and (c>a) then

     writeln('наибольшие число=c');
     readln();
end.                       

решение 2:

program Project1;
  var
    a,b,c :integer;
 begin
     writeln('ведите число a');
     readln(a);
      writeln('ведите число b');
      readln(b);
       writeln('ведите число c');
       readln(c);
 writeln('наибольшие число =');


if (a>b) then

writeln(a)

else

 writeln(c);

  else

  if (b>c) then

  writeln(b)

  else

  writeln(c):

  readln();
  end.

решение 3:

program Project1;
  var
    a,b,c,max :integer;
begin
  writeln('ведите число a');
  readln(a);
   writeln('ведите число b');
   readln(b);
    writeln('ведите число c');
    readln(c);

  writeln('наибольшие число =');

  if (a>b) then

  a:=max

   else

 b:=max

 if (max<c)

 c:=max

  writeln('max =',max);
  readln();
  end.