Задать вопрос
19 октября, 22:16

Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей

+2
Ответы (1)
  1. 20 октября, 00:52
    0
    Var a, b, r:integer;

    begin

    readln (a, b) ;

    if (a<0) and (b<0) then r:=sqr (a) + sqr (b)

    else r:=abs (a-b) ;

    write (r) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Даны 2 числа. Если они оба отрицательные, то вывести их модуль, если они оба положительные, то возвести их в квадрат.
Ответы (1)
Сделать программу ABCpascal Даны 2 числа если оба числа отрицательные то найти корень из деления иначе увеличить первое в 3 раза а второе на 7
Ответы (1)
1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно. 2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно. 3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел. 4.
Ответы (1)
Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль
Ответы (1)
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2) a=0, b=-2 алг пример цел a, b, c нач ввод a, b если a>0 то если b>0 то c:=a+b иначе c:=10 кв иначе если b>0 то c:=a*b иначе c:=0 кв кв вывод c кон
Ответы (2)