boro-1973
?>

Кумир. составить программу для решения квадратного уравнения вида: 1) c=a+b/a-b 2)f=(a+b)^2 3)c=корень а + корень b 4)c=корень a + корень b 5)d=2корень 3a/4b

Информатика

Ответы

Bezzubova_Stepanov1355

program start; var x,y,z: integer; beginreadln(x,y,z); if (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 3 | произведение: ' , z*y*x) else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*x) else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , z*x) else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*z) else if (x mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , x) else if (y mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , y) else if (z mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , z) else writeln('все числа нечетные! ');

end.

tboychenko

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2: integer;

begin

  write('x1 = ');   readln(x1);

  write('y1 = ');   readln(y1);

  write('x2 = ');   readln(x2);

  write('y2 = ');   readln(y2);

 

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

      writeln('a ближе')

  else

        if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

            writeln('b ближе')

        else

            writeln('они на одинковом расстоянии');

readln;

end.

     

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Кумир. составить программу для решения квадратного уравнения вида: 1) c=a+b/a-b 2)f=(a+b)^2 3)c=корень а + корень b 4)c=корень a + корень b 5)d=2корень 3a/4b
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Сергеевна
fixer2006
Yurevich1291
nsmmkrtchyan
elenaftdv7
nekarpova
Playintim405374
smook0695
Ivan1568
marinakmaa86
rendikalogistic
Sergei248
timonina29
ibarskova1542
argent