Задать вопрос
18 ноября, 12:01

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

+3
Ответы (1)
  1. 18 ноября, 12:15
    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 кон
Ответы (1)