Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mirator91
24.01.2022 23:43 •
Информатика
Задано действительное число k. eсли к отрицательное то значение x вычислить по формуле x=k^2, если к больше нуля или равно нулю- по формуле x=k^3 написать программу на языке паскаль
Показать ответ
Ответ:
кира650
05.10.2020 14:58
Var
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Misha45456
28.07.2022 02:35
1составьте программу ,вычисляющую сумму кубов первых n натуральных чисел 2туристы в 1-ый день км.в каждый следующий день они проходили на 1.5 км .составь программу ,вычисляющую сколько...
azim20071
31.01.2021 01:24
Григорий подошел к никите и сказал: никита,один из нас спрятал твою ручку. пока у нас перемена, тебе надо разобраться, знает ли лев, кто ее взял. но учти: на любой твой вопрос двое...
uldairuslanova
18.04.2021 22:49
Запишите фрагмент кода, в котором массив a, объявленный как a: array[2..16] of integer;, заполняется по предложенному правилу: элементы массива - случайные числа из промежутка от...
СоняКот2000
07.02.2023 06:14
C/C++. В текстовом файле хранится последовательность целых чисел. Вывести в порядке убывания те числа, которые встречаются в последовательности только один раз. Использовать для решения...
ghj42
15.05.2020 04:48
Выведите на экран все слова из К букв, в которых буква Ы встречается более 1 раза, и подсчитайте их количество. в Питоне...
123456471
15.05.2020 04:48
А1. Укажите распределительный закон для дизъюнкции?A & (B v C) = (A & B) v (A & C)A v (B & C) = (A v B) & (A v C)(A & B) & C = A & (B & C)(A v...
super12345167
31.07.2020 05:51
Составить программу для решения следующей задачи: Дан массив из 15 целых чисел, заполненный с датчика случайных чисел (диапазон чисел [0,49]). Подсчитать количество четных чисел и...
анарка3
05.07.2021 17:56
В чем отличия абсолютных ссылок от относительных в табличном процессоре; для чего используется условная функция...
ixnivoodoo
22.04.2022 04:22
Написать программу на языке программирования Паскаль, используя операторы ветвления if, then, else. Ведется прием на работу на конкурсной основе. Условия приема требуют 20 лет трудового...
HeeeeelpPlz
01.11.2020 06:30
Отметь правильные варианты ответа Какие правила важно учитывать при создании сайта? 1-Ставить точку в названии сайта, если оно состоит из одного предложения 2-Не размещать на странице...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.