Задача 8 Урок 9

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
1)сумма баллов Коли и Миши больше 20
2)или произведение баллов Пети и Миши меньше 55

var k, n, d: integer;

begin
    writeln('Vvedite Kolichestvo balov: ');
    writeln('Vvedite Kolichestvo balov Koli: ');
    readln (k);
    writeln('Vvedite Kolichestvo balov Misgi: ');
    readln (n);
    writeln('Vvedite Kolichestvo balov Peti: ');
    readln (d);

   if ((k + n) > 20) then
     if ((d * n) < 55) then
        writeln('Pobedila druzhba!')
     else
         writeln('Pobedil Kolya!')
  else
    writeln('Pobedil Kolya!');      
vedro-compota's picture

 if ((k + n) > 20) then
     if ((d * n) < 55) then

-- переписать с использование логических операций

_____________
матфак вгу и остальная классика =)

var k, n, d: integer;

begin
    writeln('Vvedite Kolichestvo balov: ');
    writeln('Vvedite Kolichestvo balov Koli: ');
    readln (k);
    writeln('Vvedite Kolichestvo balov Misgi: ');
    readln (n);
    writeln('Vvedite Kolichestvo balov Peti: ');
    readln (d);

   if ((k + n) > 20) then
     writeln('Pobedila druzhba!')
   else
     if ((d * n) < 55) then
       writeln('Pobedila druzhba!')
  else
    writeln('Pobedil Kolya!');
 readln();
end. 
vedro-compota's picture

-- переписать с использование логических операций
(OR и/или AND)

_____________
матфак вгу и остальная классика =)

var k, n, d: integer;

begin
    writeln('Vvedite Kolichestvo balov: ');
    writeln('Vvedite Kolichestvo balov Koli: ');
    readln (k);
    writeln('Vvedite Kolichestvo balov Misgi: ');
    readln (n);
    writeln('Vvedite Kolichestvo balov Peti: ');
    readln (d);

   if ((k + n) > 20) or ((d * n) < 55) then
     writeln('Pobedila druzhba!')
   else
    writeln('Pobedil Kolya!');
 readln();
end.