tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два числа. если
Даны два числа. если эти числа неотрицательные, то найдите их сумму, иначе модуль разности
EugeneEugene007
3 15.09.2019 23:10
0
Ответы
Sone4ka1111
10.08.2020 20:49
// PascalABC.NET 3.3, сборка 1623 от 16.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите два числа:');
if (a<0) and (b<0) then Writeln(Abs(a-b))
else Writeln(a+b)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
leger13245
14.03.2022 04:05
найти сообщения на темы современные комп-ые устройства , Современное программное обеспечение...
Владушкаcat
14.03.2022 03:34
. Ипполит задумал трёхзначное число, которое при делении на 15 даёт в остатке 11, а при делении на 11 даёт в остатке 9. Напишите программу, которая находит все такие числа....
лола268
14.03.2022 03:29
Сопоставьте каждый этап работы с данными из списка с определенным шагом из цикла анализа данных. 1.Очистка данных: нахождение ошибок, выбросов, пропущенных значений 2.Выбор...
Abigael
13.11.2020 09:47
Pascal. 1. Напишите программу вычисления площади прямоугольника. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены...
nastyauymionova
13.11.2020 09:49
Для захвата Китай-города Кузьме Минину и Дмитрию Пожарскому необходимо было организовать штурм сразу с 4 позиций. Для этого надо было указать точно координаты. Карта представляла...
Чискейк
13.11.2020 09:49
Постройте таблицу и график заданной функции по вариантам, приведенным выше, но на каждом графике добавьте недостающие линии сетки, подписи по оси x, название графика (например,...
lphk02
13.04.2020 21:46
с информатикой класс Практическая работа 3.1 «Таблицы истинности логических функций» Прислать фото результата...
dashanarmania
30.05.2019 17:00
Составить программу. вычеслить выражение y=2x+8...
Valeri200666
30.05.2019 17:00
Мише x лет коле y лет найти их средний возраст и составить программу...
Danusja13
19.06.2020 11:08
Запишите все маленькими буквами в операторах Паскаля cos2х...
Популярные вопросы
Від поданих іменників утворіть форми родового відмінка однини. Документ,...
3
Почему тезисы для научной конференции не нуждаются в рецензировании...
1
Найти объём прямоугольного параллелепипеда с длиной а, шириной b и высотой...
3
Проект творці українського модерну...
2
Запишіть речення, поставте розділові знаки Бачу здалека хвилю що іскристо...
1
31) Make thesentencenegative (-).They will have aparty next week....
1
Построив на рис 6 соответствующие отрезки,найдите длину неизвестного отрезка...
3
Известно, что AC = 8 см, BD = 6 см, ВС = 2 см (рис. 27). Найдитедлину отрезка...
2
ТЫҢДАЛЫМ ОҚЫЛЫМ МӘТІНМЕН ЖҰМЫС4-тапсырма.Мәтінді тыңда, оқы.Қазақ отбасындағы...
2
К биологическим свойствам организма, присущим людям от рождения относятся:...
2
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите два числа:');
if (a<0) and (b<0) then Writeln(Abs(a-b))
else Writeln(a+b)
end.