Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Юра22858
10.08.2022 00:32 •
Информатика
Записать на языке паскаля. "даны два числа. замените меньшее из них модулем разности этих чисел, а большее модулем суммы."
Показать ответ
Ответ:
Nik08ov
02.07.2020 07:54
Uses crt;
var a,b,c:integer;
begin
writeln('Vvedi a,b')
readln(a,b);
c:=a+b;
if (a>b) then
begin
b:=abs(a-b);
a:=c;
end
else if (a<b) then
begin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mkagermazov
22.01.2020 05:32
№1: сколько байт информации содержит сообщение объёмом 1 мбит? (ответ - степени 2) №2: сколько мбит информации содержит сообщение объемом 0,25? (ответ-одним числом)...
николь43
25.06.2021 12:40
Для групповых операций с файлами используются маски имён файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которой...
natasha20170605
17.10.2022 18:06
Какое расширение не может иметь файл,созданный в текстовом процессоре ms word? doc,docx,ppt,rtf,bmp,txt,odt,wma?...
valnov24200105oxnmv8
01.01.2021 19:54
Дан массив b(n). удалить из него минимальный элемент и сдвинуть все оставшиеся элементы на одну позицию влево...
olga000064
04.01.2022 07:19
Дано натуральное число n. напишите программу, выводящую все числа квадраты которых меньше n...
Ytbjfdg
26.08.2021 13:41
Вправа !Виконати в зошиті....
Вsеzнaйkа
03.05.2022 02:05
Привет. Это информатика. ответы. За урок Мини проект компьютер будущего Онлайн мектеп ответы. Выбирай нужные...
dema1179
17.11.2020 20:34
надо решить 7-ое задание...
LadyDiana17
26.07.2020 00:47
Виберіть код відображення прямокутника на формі із верхнім лівим кутом x1, y1 та нижнім правим х2,у2Form1.Canvas.Elipse(x1, y1,x2, y2)OForm1.Canvas.LineTo(x,y)OForm1.CanvasMoveTo(x,y)OForm1...
глупенький11
06.04.2022 08:36
Дуже потрібна ваша до , велика винагорода за завдання, на перед дякую! Очень нужна ваша сделайте, большая награда за задание) За рание ! ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:integer;
begin
writeln('Vvedi a,b')
readln(a,b);
c:=a+b;
if (a>b) then
begin
b:=abs(a-b);
a:=c;
end
else if (a<b) then
begin
a:=abs(a-b);
b:=c;
end;
writeln('a=',a,' b=',b);
end.