Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
AlilKris
27.02.2021 19:17 •
Информатика
Написать программу в паскале. на вход подаётся x на выход y=5*x если x> 0 y=x*x иначе
Показать ответ
Ответ:
Tenur
03.10.2020 18:48
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.
Пример ввода:
-1.1
Пример вывода:
1.21
0,0
(0 оценок)
Популярные вопросы: Информатика
AndHeAgaIN2
06.01.2023 15:31
в чем отличие между сервисом и рабочей станцией?...
marinnka09
25.10.2022 02:11
Какой циклический процесс обусловлен движением земли вокруг солнца...
maxim1213
30.10.2020 03:01
№1. Найти количество цветов в изображении, размер которого = 512 на 512 px, которое весит 96 Кб. №2. Найти количество пикселей в изображении, если оно весит 16 Кб. №3. Найти вес...
Настя9876899
12.03.2022 02:59
Задай вопрос от главного слова к зависимому (пиши вопросы с маленькой буквы). 1. Снег ( )? пушистый; 2. бежать ( )? по тропинке; 3. беседовать ( )? с мамой....
denisstar756
12.03.2022 02:59
3 тапсырма комектесесиздер ме отинемин тез ...
Irinazpopo
12.03.2022 02:59
Почему Соня пыталась научить кабачка...
Аааааййййймммммм
12.03.2022 02:59
синтастиктік талдау шешіп беріндерш...
аграил9
31.12.2022 03:40
4. В четырех коробочках лежат красные, зеленые и желтыекружки.КружкиКоробказеле-ныежел-TLICкрас-ные11273152232254137229584514362В какой коробочке больше жел-тых и зеленых кружков?а)...
гогогогог
08.02.2022 16:54
Функции заданы формулами f(x)=12x2 и g(x)=13x2. Вычисли f(−12)g(3)...
аноним1234567891011
15.11.2022 08:10
Чем отличается мелодист от композитора...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
x,y:real;
begin
readln(x);
if x>0 then y:=5*x else y:=x*x;
writeln(y);
end.
Пример ввода:
-1.1
Пример вывода:
1.21