Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ксюша1704
27.06.2022 20:17 •
Информатика
Даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей
Показать ответ
Ответ:
ясмина115
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
kotik04062007
30.08.2021 19:14
Nbsp; дано масив а=[[123,15,70,,3,,3]] відобразитт к-сть рядків в масиві і к-сть елементів в третьому і першому рядку...
тик12345
18.11.2020 01:49
Дан фрагмент программы: a: =24; b: = a+3; a: =b-a; writeln (a); writeln (b) ответ: ...
И55373919
25.06.2020 09:14
Как показать что: 1)число а= положительное2) а не положительное 3) среди чисел а,б есть хотя бы одно , ранвое 5, 4)среди чисел нет ни одного равного 5 5) что число а...
МашуняДижур
20.01.2021 12:18
Як відкрити збережений проект...
Lizasuper2003
03.03.2023 00:59
ФО Циклы 1. Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число). Входные данные: Вводятся натуральное число хВыходные данные: Выведите...
sifrel98
06.02.2020 13:55
Дополни определение. Язык программирование - этоКомпьютерная программа - этопамагите у меня соч ...
VERIGINGUIGORY
15.01.2023 18:38
Теги могут быть: афтономными парными главными афторитетными...
Данил28645
28.11.2022 01:09
Соррр по информатике тест задание определите результат выполнения программы:1#пишите код здесь 2а=73b=54print (str(a*b))5print (str(2*(a+b)))...
Гелакси27
09.03.2022 02:32
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целочисленные значение значения от -20 до 20 – сведения о температуре за каждый день ноября....
нмрмгштщ
14.10.2021 02:12
Как объявляется класс объектов в программе?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.