tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задано действительное число
Задано действительное число k. eсли к отрицательное то значение x вычислить по формуле x=k^2, если к больше нуля или равно нулю- по формуле x=k^3 написать программу на языке паскаль
madam7952
3 23.08.2019 17:00
1
Ответы
Panda2368
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Adilkin
15.07.2019 22:10
Напишите программу(в паскаль) нахождения суммы s=1+1/2+1/3+/n, где n - натуральное число....
azimovroma2018oyopk2
28.05.2020 00:54
Прямоугольный параллелепипед с ребрами 32,64 и 96.Предикат: Vol(a,b,c,v):=Mult(a,b,z),Mult(z,c,v).За Прямоугольный параллелепипед с ребрами 32,64 и 96.Предикат: Vol(a,b,c,v):=Mult(a,b,z),Mult(z,c,v).З...
Vagapova1
15.06.2019 06:00
Перевести число 123 в восьмиричную систему исчисления(а8)...
oraevadiana
15.06.2019 06:00
Дан массив целых чисел.определить количество элементов,кратных 5...
atomis
15.06.2019 06:00
1.чому іменам папок не розширення? 2.у чому полягає взаємозв*язок між поняттями **тип файла** і **розширення імені файла**? чи можуть файли з однаковим розширенням...
ksu1976reg
15.06.2019 06:00
Дан массиы,содержащий 50 элементов. найти среднее арифмитическое элементов массива,состоящих на местах кратных 5...
DAmigoX
15.06.2019 06:00
Сформулировать массив из n случайных чисел от 0 до 86. найти сумму чисел кратных 3...
artyomka12
12.03.2021 17:57
Установите соответствие между математическими выражениями и записями на языке программирования Python Математическая записьЯзык программирования С++5х+3x/(y+3)a*b*c/4*Rх5...
Ал923к
23.04.2020 10:53
решить тест по информатике...
cnejniyrayp08ixm
23.04.2020 10:53
Разработай циклические алгоритмы для рисования следующих фигур...
Популярные вопросы
Найти производную функцию y= xcos3x...
3
1.в каком ряду в обоих словах пропущена безударная гласная корня?...
2
Решить неравенство lg(2-4x)≥2lg4+2...
3
Этика. сочинить сочинение: что такое любовь к жизни?...
2
Решите неравенство а) 2^2x+2 81. б) 1/-2...
3
Какой объем воздуха, затрачивается на сгорание 20г бутилбензола,...
3
Help. составить 9 предложении to have в функции: в связке с существительным...
2
Придумать предложения со следующими словами: кармак, ыстык, аулау,носер,...
3
Янка брыль мати короткий змест...
2
Втреугольнике abc точки m, n, k середины сторон ав, вс и ас соответственно....
1
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.