Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
winnikrolikov
03.03.2023 10:15 •
Информатика
Присвойте z значение большего из чисел x и y в том случае,если x< 0 и меньшего если x> =0.составить программу в паскале
Показать ответ
Ответ:
teoat
05.10.2020 09:32
Program qq;
var x,y,z:real;
begin
write('Введите х >>>');
readln(x);
write('Введите y >>>');
readln(y);
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
write(z);
end.
маме)))
0,0
(0 оценок)
Популярные вопросы: Информатика
Vika3839
16.02.2020 17:51
Отметьте все прикладные программы: операционная система системы базами данных электронные таблицы графические редакторы утилиты...
ArbuzovAndrey
24.05.2023 17:50
Как в паскале abc нарисовать снеговика надо...
danilpro2017
05.04.2022 10:38
Задан массив k(n). и отрицательные элементы массива заменить на их квадраты. вывести их индексы и новые значения....
ЛизкаПодлизка111
25.04.2023 01:13
Найдите ошибки в написанной программе...
spikeeesz
08.11.2021 22:44
Быыыстро В таблице приведены за и количество страниц найденных по ним сайтов в сегменте сети. За Найдено сайтов (в тысячах) ДОМ 50 ХИЖИНА 80 ЖИЛИЩЕ 100 ДОМ&ЖИЛИЩЕ 20 ХИЖИНА|ДОМ...
buzalola123
06.01.2023 03:05
Сократить дроби д) 12/18, 18/20, 20/24, 24/30 е) 56/49, 40/32, 48/36, 28,21 ж...
русский132
06.01.2023 03:05
Составьте уровнения реакций между углеродом и следкщими : оксид железа 3, оксид вольфрама 6, оксид свинца 4. укажите окислитель и восстановитель....
Marys67
06.01.2023 03:05
Найдите предлож с вводными словами а- ваше предложение кажется мне неприемлимым b-окно должно быть открыто всю ночь с- ваше предложение может быть принято на определенных условиях...
bokkvika2908
06.01.2023 03:05
От предложения: russia was in danger as never before, задать вопросы did? what? when? where? why?...
lizokturina
06.01.2023 03:05
Объясните механизмы образования первичной и вторичной мочи,с !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,y,z:real;
begin
write('Введите х >>>');
readln(x);
write('Введите y >>>');
readln(y);
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
write(z);
end.
маме)))