Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
alex06062
27.03.2022 15:47 •
Информатика
Составить программу решения : ввести два числа . если первое число больше второго, то найти их разность, иначе найти их сумму.
Ответ:
CoolSansSkeleton
23.07.2020 13:55
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
yanashabanova1
10.12.2020 10:24
Ая опять к вам с по информатике на pascalabc.net в синтаксисе pascal abc. дано натуральное число n. определить его разрядность и сумму цифр....
Myzhik123456
28.05.2020 17:20
Вычислите значение выражения 100 * (x mod 10) + x div 100 + x mod 100 – 1...
Ришат12333323
09.02.2020 15:54
Напишите процедуру, которая выводит на экран фразу я люблю паскаль заданное в ее параметре количество раз...
Besta555
09.02.2020 15:54
Определить количество трехзначных чисел, сумма цифр которых равна к. к вводится с клавиатуры. найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры....
еккаа
09.02.2020 15:54
4. какая функция позволяет выделить k символов из строки s, начиная с позиции i a. copy(s,k,i); b. pos(s,k); c. length(s); d. concat(s,k,i)....
95123451
08.03.2020 05:07
Что это значит? й - ^1 в - ^2 г - ^3 к, а - градус з - треугольник е - μ ж - все в одну строку н - 1/2 м - 1/4 п - 3/4 б - ± ч - §...
arsenteva99i
17.07.2021 00:40
Укажите через запятую в порядке возрастания все основания систем счисления в которых запись 27 оканчивается 3...
8Евген8
25.06.2022 14:11
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: кофе-1300 чай& кофе-500 чай/(или)кофе-4000...
sashkaignatoly
25.06.2022 14:11
Полученные sms информационный объем которого составляет 512 бит чему равен этот объем в байтах...
likavudu
29.04.2022 18:09
Любой текст,созданный с текстового редактора...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.