Войти Регистрация Спроси ai-bota

Y=x^2,если x 0
Напишите программу для Паскаля
Используя (then и else)

Ответ:

shurashishkin1

10.01.2021 16:16

Var y, x: integer;

begin

Writeln("введите число");

readln(x)

if x=0 them

y=x*x;

end

0,0(0 оценок)

Популярные вопросы: Информатика

annaaverina

18.01.2023 14:31

Нужно написать алгоритм. робот стоит слева от длинной вертикальной стены, длина стены неизвестна . необходимо обойти стену , закрасить все отмеченные клетки вокруг стены и...

katja0709

18.01.2023 14:31

Дана последовательность чисел вычеслить произвидениеи количество чисел которые меньше 10...

Ульяна11111112

11.04.2020 18:26

Вопрос: Как в Python добавить элемент x в начало списка A? ответ запишите без пробелов. Запишите ответ:Задание 2Вопрос:Каким должен быть список, чтобы в нём можно было применить...

Starshine2007

11.12.2021 00:17

Какое количество кбайт нужно для записи цветного растрового изображения занимающего четверть экрана монитора с текущим разрешением 1024x768 известно что для изображения использовалось...

solov1

11.12.2021 00:17

Составить программу вычисляющую max(min(a,b), min(c,d))...

Alexandra0606

11.12.2021 00:17

Найти все числа, которые делятся на n среди а) всех двузначных чисел; б) всех трёхзначных чисел...

artemantonuc

11.12.2021 00:17

По введенным с клавиатуры длинам трех отрезков определить: можно ли из них составить треугольник?...

naumovvalera96

09.10.2021 22:39

Состояние охраняемого объекта контролируются 72 датчиками. определите наименьшее количество сигнальных лампочек необходимых для идентификации этих датчиков и передачи информации...

фуад05

17.11.2022 03:32

Написать программу в паскаль abc. теорема ферма утверждает, что не существует решения в целых числах уравнения x^n+y^n=z^n при n 2. напишите программу, которая проверяла бы...

gerasimovichninka

17.11.2022 03:32

11. определить значение переменной s после выполнения следующих команд. … s: =3; i: =2; пока i =17 выполнять начало цикла s: =s+i; i: =i+2; конец цикла s: =s+8; … 12. дано...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку