Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Iejsjsjsj
28.12.2021 21:21 •
Информатика
Написать программу в паскале. на вход подаётся x на выход y=5*x если x> 0 y=x*x иначе
Показать ответ
Ответ:
Sashas16
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 оценок)
Популярные вопросы: Информатика
2018kat
18.02.2021 03:56
Написать программу, которая выводит содержимое файла, кроме тех слов длина которых больше 5 символов. str.length() с++...
luszdncsjmn
18.02.2021 03:56
Создать двумерный массив 3х3 заполнить отрицательными и положительными числами все отрицаетльные числа сделать положительными создать двумерный массив 3х3 заполнить случайными...
Адриана1111111
07.08.2020 12:14
Найти объем текстового файла, если в нем используется 26 строчных и 26 заглавных букв, 10 цифр и 10 служебных знаков. Он состоит из 16 страниц, на каждой странице 48 строк,...
alinaetosila2004
13.01.2021 06:46
Путем тождественных преобразований определить, на каких наборах данных логическая функция принимает значение 1 f=x₁×(не х₂) + (не х₁)×х₃ +(не х₂×х₃)...
officialmailofp08mfm
11.02.2021 11:55
Сообщение записанное буквами 16-символьного алфавита, содержит 80 символов. какое количество информации оно неесёт...
кирилл14373567456
01.12.2020 15:19
Образуй сравнительную степень имён прилагательных. с какой морфемы образуется сравнительная степень? 1. хрень редьки не (сладкий) . 2. сталь (твёрдый) железа. 3. чем (далёкий)...
Margosha100000000000
01.12.2020 15:19
Составить предложения правильно.1.in/england/lives/bill.2.goes/to/he/school.3.maths/likes/bill.4.doesn t/he/english/like...
romanovanelya
01.12.2020 15:19
Четырехугольник abcd параллелограмм в(-2: 3) с(10: 9) d(7: 0) найдите координаты вершины а...
007sergey
01.12.2020 15:19
Укожній групі знайдіть слово, у складі якого є тільки м які приголосні: 1). день, дія, мрія. 2).їжак, лілія, синіють. 3). ніч, похід, їдь. 4). людяні, мінери, пам ять. 5)....
evbarseguan
01.12.2020 15:19
Когда и почему появились первые государства?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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