Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Azimhan2017
17.09.2022 06:44 •
Информатика
Ввести 2 числа. если оба числа равны 5.5, то выдать их на печать, иначе удвоить число не равное 5.5. программу паскаль
Показать ответ
Ответ:
aktotyaubekerozp0uz
03.10.2020 20:36
Var x,y:real;
begin
readln(x,y);
if (x=y) and (x=5.5) then writeln('5.5 , 5.5')
else
if (x<>y) and (x<>5.5) then begin x:=x*2; writeln(x, ' , 5.5'); end;
if (x<>y) and (y<>5.5) then begin y:=y*2; writeln('5.5 , ', y); end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zina0155
15.04.2021 11:54
Всоревновании по бегу участвовали пять спортсменов. виктору не удалось занять первое место. григория обогнал не только дмитрий, но ещё один спортсмен, отставший от дмитрия,...
dmitriyvoron8
15.04.2021 11:54
Какой циклический процесс обусловлен движением земли вокруг солнца...
Аля4Б
06.06.2020 03:08
Проведена стерилизация хлопчатобумажного материала, уложенного в биксы, паровым методом. Режим стерилизации 2 атм. - 132 градусов С - 20 мин. Объясните ситуацию....
9яна2005
03.10.2022 17:43
1 С функции double distancePtr(Point* a, Point* b) { double deltaX = a- x - b- x; double deltaY = a- y - b- y;подсчитайте длину ломанной, состоящей из n точек.Формат входных...
1988katerinkam
19.10.2020 04:15
Напишите письмо другу о том, как прочитать данные из файла. Опишите особенности чтения из файла и его значение в програмировании. С какими трудностями вы столкнулись при изучении...
AloysiuS
22.05.2023 12:18
составить блок схема с циклом мыть посуду...
Dlana
05.10.2020 00:28
В) Значение выражения AODC16+110, 1116 - 10610+10000-500 +120, 1116-10610 Вычислите в 10-чной системе счисления и результат вычисления переведите в 16-чную систему счисления...
slavka194
08.01.2020 19:06
Скиньте документацию по winapi (c++)....
dilasagadatova
12.03.2023 15:47
цикл while. Урок 2сопоставь комментарии с кодом....
MariMQ
21.03.2021 22:36
Имеется файл, в котором содержится размерность массива и его элементы. Вычислить: A. количество элементов массива, меньших С; B. сумму целых частей элементов массива, расположенных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(x,y);
if (x=y) and (x=5.5) then writeln('5.5 , 5.5')
else
if (x<>y) and (x<>5.5) then begin x:=x*2; writeln(x, ' , 5.5'); end;
if (x<>y) and (y<>5.5) then begin y:=y*2; writeln('5.5 , ', y); end;
end.