Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alerokl2313
21.03.2020 08:19 •
Информатика
Напишите программу, в результате выполнения которой первое введённое число уменьшается в три раза, если оно больше, чем третье, а третье становится разностью третьего и второго, если оно больше второго.
Показать ответ
Ответ:
bagauridiana
01.10.2020 23:51
Var
number1, number2, number3 : real;
begin
write('Первое число: ');
readln(number1);
write('Второе число: ');
readln(number2);
write('Третье число: ');
readln(number3);
if (number1 > number3) then number1 := number1 / 3;
if (number3 > number2) then number3 := number3 - number2;
writeln('Вывод');
writeln('Первое число: ', number1);
writeln('Второе число: ', number2);
writeln('Третье число: ', number3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
shahanovaoksan
07.05.2023 18:45
Решите логическую по информатике с таблицы истинности...
Юлия0753
12.09.2020 01:17
Дополнительное задание. в эл. таблицу занесли результаты тестирования девятиклассников всех школ города по химии и биологии. всего в таблице оказались заполненными 602 строки. вот...
Виктория6789045
30.04.2023 02:03
Какой риск возникновения угрозы безопасности информации государственной информационной системы? (Пример угроз: вирусы, хищение информации, кибер атаки, шпионаж, диверсии, ошибка при...
rigorevich17
21.03.2021 13:20
Вопрос 1 Назовите закон алгебры логики:A & B = B & АВопрос 2Назовите закон алгебры логики:(A \/ B) \/ С= А \/ (B \/ С)Вопрос 3Назовите закон алгебры логики:A & (B \/ С)=...
ernarsailaubek
16.03.2021 08:41
Алфавит состоит из 100 символов какое количество информации несет один символ этого алфавита...
tanyapishulovaoyc3lb
27.02.2020 09:45
Учень 8 класу на контрольній роботі отримав підказку від товариша, але ніяк не може її до кінця зрозуміти. Вам потрібно дописати те, чого не вистачає у цитатах, вказати героя і розділ....
AnVe
11.01.2021 18:07
4 год 8 хв * 7 -9 хв 6 с * 6...
Kamper5678
20.02.2023 15:19
Данагөйлік дегеніміз не ...
gabiko82
07.04.2020 03:32
Дан двумерный массив. Найти минимальную сумму элементов строки и номер этой строки...
LexaCR7
08.02.2022 20:27
Бауыржан Момышулы “за нами -Москва” анализ повести и план...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
number1, number2, number3 : real;
begin
write('Первое число: ');
readln(number1);
write('Второе число: ');
readln(number2);
write('Третье число: ');
readln(number3);
if (number1 > number3) then number1 := number1 / 3;
if (number3 > number2) then number3 := number3 - number2;
writeln('Вывод');
writeln('Первое число: ', number1);
writeln('Второе число: ', number2);
writeln('Третье число: ', number3);
end.