1. Информатика
  2. Даны 2 числа а и б если они оба

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

dashabalybina11 dashabalybina11    1   21.08.2019 09:00    0

Ответы
AgsHiNN05I AgsHiNN05I  05.10.2020 09:01
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Alesha55535 Alesha55535  29.05.2019 15:56
Что относят к пакетам прикладных программ?...
виталька1001 виталька1001  29.05.2019 15:45
Вопрос создателям игр. знаю, что нужна для создания игры, но что именно надо знать? формулы или как это работает. то есть, допустим, что персонаж прыгает по параболе, так вот,...
ВАС12237 ВАС12237  20.03.2022 23:24
Нужен код на паскале! Два двумерных массива содержащие соответственно 3x5 и 4x8 вещеатвенных элементов. ввести и обработать их следующим образом:Функция 1 Поиск положительных...
missisvereshac missisvereshac  20.03.2022 23:21
Напишите программу, которая используя цикл while отображает на экране числа от 10 до 0. Затем перепишите программу с использованием цикла for....
glebshestopal glebshestopal  20.03.2022 22:57
Задания 15,16(Определить значение переменой b,после выполнения алгоритма)...
evsiukova80 evsiukova80  20.03.2022 21:15
Напишите наименьшее число х, для которого истинно высказывание: (x 35) И НЕ (х не делится на 7) Напишите наименьшее число х, для которого истинно высказывание: (x 23) И НЕ...
Дарька2000 Дарька2000  20.03.2022 20:56
ПРОВЕРОЧНАЯ РАБОТА «КОДИРОВАНИЕ ГРАФИЧЕСКОЙ ИНФОРМАЦИИ» Задача 1. Фотография размером 1600x2048 пикселей в Виде несжатого файла занимает В памяти Компьютера 12,5 Мб. Определите...
Alexy7406 Alexy7406  30.08.2019 00:10
Решать на pascal abc.net версия 3.2 сборка 1417. написать программу, которая выполняет сравнение многоразрядных десятичных целых чисел. то-есть вывести если первое число больше...
ilia39loh ilia39loh  30.08.2019 00:10
Pascal abc напишите программу, которая сортирует список работников компании по фамилии в алфавитном порядке. в списке не более 10000 строк, ввод заканчивается пустой строкой....
м080878 м080878  03.06.2019 18:00
Заполнить двумерный массив 6*6 определить сумму элементов вывести номера строк...

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