Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Alexa20
25.07.2021 04:39 •
Информатика
Даны вещественные числа xl и x2, которые вводятся с клавиатуры. Необходимо написать программу, которая считает значение y=xl +l, если xl=x2 или значение y=x2 +2,если вводимыес клавиатуры числа xl и x2 не равны друг другу. На языке Паскаля очень надо
👇
Увидеть ответ
Открыть все ответы
Ответ:
Анастасияя12345
25.07.2021
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
4,6
(36 оценок)
Ответ:
synnjhcx
25.07.2021
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
4,4
(62 оценок)
Это интересно:
Х
Хобби-и-рукоделие
14.09.2022
Как составить гранатомет своими руками: Подробная инструкция...
О
Образование-и-коммуникации
05.03.2022
Как эффективно учиться: советы для успешного обучения...
К
Компьютеры-и-электроника
02.02.2022
Как создать файл в формате PDF с помощью бесплатного приложения OpenOffice...
Д
Дом-и-сад
10.04.2023
Как очистить забившийся шредер...
О
Образование-и-коммуникации
25.03.2023
10 советов, как раскрыть свой талант и стать успешным...
В
Взаимоотношения
07.02.2020
Как привести девушку домой на первом свидании: советы и рекомендации...
Х
Хобби-и-рукоделие
18.04.2021
Как сшить жилетку: подробный мастер-класс...
М
Мир-работы
10.10.2021
Как стать дрессировщиком дельфинов: руководство для начинающих...
В
Взаимоотношения
19.03.2022
Как прийти в себя после разрыва отношений...
К
Кулинария-и-гостеприимство
05.10.2021
Как правильно жарить курицу: секреты и рекомендации...
Новые ответы от MOGZ: Информатика
TimuR2112
13.05.2021
Число 8¹⁰=1000² в восьмиразрядном представлении имеет вид:...
ролимов
07.11.2022
Очень Выполните действия (а) и сравните числа(б). Индекс внизу каждого числа обозначает систему счисления, в которой это число записано. ответ представьте в той системе...
kostja07
18.10.2020
Напишите описание команды: #include...
NekitFe
22.02.2023
Напишите описание команды: cout...
Берегиня
10.01.2020
у меня сор,нужна ,если не трудно сделайте весь,и отметьте что где под каким номером, а если трудно,просто сделайте второе задание,я только быстрее❤️...
прорппп
03.01.2021
1) напишите программу, которая спрашивает целые числа а и b и выводит на экран количество чётных и нечётных чисел в диапазоне от а до b(паскаль)...
DImonist
11.06.2021
Задан одномерный числовой массив.напишите программу которая находит второй по величене после максимльного элемент и его номер . решение паскаль...
Пакемоник
19.05.2021
выбрать правильное определение компьютерного вируса 1)это система хранения файлов и организмов каталогов2) является программа которая могут размножать и скрывать внедрять...
матвей426
19.05.2021
15. Зашифруйте с таблицы 1.19 следующие слова. информатика компьютер...
Кети20060106
10.09.2021
Напишите программу, которая считывает целое положительное число xx и выводит на экран последовательность чисел x, 2x, 3x, 4x и 5x разделённых тремя черточками. Формат...
MOGZ ответил
Какая часть речи: к десяти, от пяти, девять, с шестью...
Что будет с хлебом если на него капнуть йод? и что можно зделать с...
Решите график уравнения (x-3)^2+(y-1)^2=9...
Значение выражения: а-х/а+х при а=-2,3 и х=-1/5...
Решить ! дано: r1=10 ом r2=5 ом rпосл-? rпар-?...
Вырази время в секундах 3 мин 4 мин 40 с 9 мин 9 с...
Составить предложение со словом молотьба...
Звуко буквений аналіз слова національний...
Сколько среди двухзначных чисел,в записи кторых имеется хотя бы одна...
Где а нашей планете могу обитать моллюски? по нескольку примеров видов...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.