Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
lizun10
27.09.2021 05:45 •
Информатика
Даны числа x и y. вычислите число z=x+y, если x< =y и 1-x+y в противном случае.
Показать ответ
Ответ:
122344566
07.10.2020 15:12
//Pascal
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Obzzzi
16.01.2020 00:48
1. хозяин хочет оклеить обоями стену длиной b и высотой a метров. у него имеется k рулонов шириной 55 см и длиной 10,5 м. хватит ли обоев на оклейку стены? как это решить?...
Nastya162005
16.01.2020 00:48
Как увидеть формулу, записанную в ячейку?...
fewralskajaribozers3
25.11.2020 14:05
Расположить в порядке убывания : 25 бит, 20бит, 3 байта, 101 байт...
EgorKolomytsev
25.11.2020 14:05
Как вычислить примеры: а) 10101001 2 + 32330 4 (ответ записать с основанием 4) б) 2121321 3 * аес 16 (ответ записать в системе счисления с основанием 11)...
сьдвщы
06.08.2021 00:54
Установите соответствие между числами и минимально возможными основаниями систем счисления, которые им соответствуют. 1)3423 2)11101 3)888 4)А77 А)2 Б)9 В)5 Г)11...
Анастасия0561
23.06.2020 18:59
Егер n = 5 болса, псевдокодтың орындалу нәтижесі неге тең болады? Алг сандар көбейтіндісі (арг бүт n, нәт бүт P) берілгені |n 0 қажет |P=1*2*3*...*n басы бүт i енгізу n;...
budarnyypetr
11.01.2023 15:08
Скласти і записати в зошит програма піднесення числа до степеня за до циклу з лічильником. До іть будь ласка!...
lizo4ka004
29.06.2021 02:25
Записать что дано, найти, составить блок-схему и программу в паскале 1. Даны два числа. Возвести в квадрат те из них, значения которыхнеотрицательны, и увеличить на 2,5...
КирилБыков
11.01.2022 19:27
Складіть проект для малювання квадратів, розміщених поруч, поки периметр квадрата не перевищує 200 кроків. Довжина сторони першого з них дорівнює а кроків, а довжина сторони...
Evaliberman
12.04.2020 05:07
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln (sum); writeln...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.