Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
viiiiiiiiiiii
23.05.2020 15:51 •
Информатика
Даны числа x и y.вычеслить число z равное x+y если x< =y,и 1-x+y в противном случае
Ответ:
weldys99
05.10.2020 16:01
Var x, y, z: integer;
begin
Write('Введите x: ');
Read(x);
Write('Введите y: ');
Read(y);
if x <= y then
z := x + y
else
z := 1 - x + y;
Write(z);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анастейша1818
11.04.2023 03:20
Составьте програму которая заполнят массив a[1..2] случайными целыми числами в диапозоне от 0 до 2 и выводит на экран количество равных элементов равных 1...
Elizabeth1006
08.10.2020 08:23
На Паскале 1) Определить, сколько символов в слове” Аласапыран 2) Из слова” келешек “выпустить слово” кеше’’ 3) Обратное чтение части текста на пути. 4)Определить сколько букв в тексте...
sergeevan73
25.02.2021 04:44
Постройте графики функций в одной системе координат. Получи рисунок. «Динозавр»...
cheacher
27.09.2021 06:13
Даны два массива целых чисел a и b, каждый их которых не содержит повторяющихся элементов. исходная информация записана в файле. построить объединение массивов a и b. c++...
Portée
27.09.2021 06:13
Решите ! ввести с клавиатуры n разрядное число, определить является ли произведение всех разрядов четным или нечетным числом без массивов...
silinskay
27.09.2021 06:13
Паскаль.как удвоить значения чётных столбцов матрицы? program d1; type mas=array [1..5,1..5] of integer; const x: mas=((1,2,3,4,,4,3,2,,7,8,9,,12,13,14,,9,8,7,6)); var q,a: mas; i,j:...
timamarsh666
27.09.2021 06:13
S=127 n=250 while n-s 0: s=s+20 n=n+15 print(s) объясните как решать...
azbyka1234567890
27.09.2021 06:13
Файл размером 1,5 кбайт передается через некоторое соединение 21 секунду. сколько секунд будет передаваться через это же соединение файл размером 512 байт?...
kotletka223
27.09.2021 06:13
Определить, какие из выражений являются верными 1. 5 байтов = 50 битов 2. 256 байтов = 1/4 кбайт 3. 2 кбайт = 2048 бит 4.512 кбайт = 1/2 мбайт 5. 1 гбайт = 10000 кбайт ответ: номера...
Крис2609
27.09.2021 06:13
1) как записать вопрос для поиска словосочетания популярные поисковые системы , используя правила формирования запросов поисковой системы яndex? 2)как записать запрос (используя правила...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
Write('Введите x: ');
Read(x);
Write('Введите y: ');
Read(y);
if x <= y then
z := x + y
else
z := 1 - x + y;
Write(z);
end.