Шесть футбольных команд а, б, в, г, д, е должны сыграть матчи каждая с каждой. уже сыграли а с в, г, - id899247620210130 от albina236 30.01.2021 16:29

Question

Информатика: Шесть футбольных команд а, б, в, г, д, е должны сыграть матчи каждая с каждой. уже сыграли а с в, г, е. б с в, д, е. в с а, б. г с а, д, е. д с б, г, е. е с а, б, г, д. сколько матчей сыграно и сколько осталось сыграть?

albina236 · Accepted Answer

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)
  then
Begin
  a:=a+2;
   b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
   end
else
  if (a>0) and (b<0)
  then
writeln('a*b = ',a*b)
else
   if (a<0) and (b>0)
    then
    writeln('b-a = ', b-a)

else writeln('Ни одно условие не выполняется');

readln;
end.

MOGZ ответил