Есть ответ 👍

1-ая определите расстояние между двумя точками с координатами котоорых(x1,y2) 2-ая вводится три числа 2 целых и одно дробное .определить их сумму если они одного знака 3-ая дано 2 массива одного типа и одинаковой размерности либо целое либо дробное сформулировать 3 массив кажждый элемент которого получены как наибольший из двух исходных (равных нет) посчитать в этом вновь созданном массиве количество четных и нечетных прошу вас решите нужно прошу нужно до завтра

288
356
Посмотреть ответы 2

Ответы на вопрос:

nadyam1982
4,7(84 оценок)

1)program fagasg; var x1,y1,r: real; begin writeln('введите х1'); readln(x1); writeln('введите у1'); readln(y1); r: =sqrt(x1*x1+y1*y1); writeln('расстояние от х1 до у1=',r); end.2)program fsgasghfd; var c,s: real;     a,b: integer; beginwriteln('введите первое целое число'); readln(a); writeln('введите второе целое число'); readln(b); writeln('введите дробное число'); readln(c); if ((a> 0) and (b> 0) and (c> 0)) or ((a< 0) and (b< 0) and (c< 0)) then  s: =a+b+celse writeln('знаки разные'); if ((a> 0) and (b> 0) and (c> 0)) or ((a< 0) and (b< 0) and (c< 0)) then writeln('сумма чисел: ',s); end.3)program wrqrwqr; var a: array[1..100] of integer;     b: array[1..100] of integer;     c: array[1..100] of integer;     s,i,h,g: integer; begin h: =0; g: =0; writeln('введите размерность массива'); readln(s); writeln('вводится первый массив'); for i: =1 to s do  begin    writeln('введите элемент массива №',i);     readln(a[i]);   end; writeln('вводится второй массив'); for i: =1 to s do  begin    writeln('введите элемент массива №',i);     readln(b[i]);   end; for i: =1 to s do  begin    if a[i]> b[i] then c[i]: =a[i]      else c[i]: =b[i];     if c[i] mod 2=1 then h: =h+1;     if c[i] mod 2=0 then g: =g+1;   end;   writeln('количество нечётных элементов в массиве: ',h);   writeln('количество чётных элементов в массиве: ',g); end.
masha6610
4,5(18 оценок)

Вот этот сайт там можно перевсти

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS