Составить программу для решения задачи

Составить программу для решения задачи. Ввести любое число с клавиатуры. Найти его квадрат, если число отрицательное, в противном случае найтиквадратный корень.

в избранное

kaznacheyv

30 июля 2022

Program asd; USES crt; var a,b,s: real; BEGINclrscr; Writeln ('Vvedite chislo: '); Readln (a); If a<0 then s: =sqr (a) else s: =sqrt (a); Writeln (s); END.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Y={2X (в кубе)+1 / X-5, если X=4 это одно выражение… нужно составить блок схему и программу вычисления значения функции…

Задачка в Pascal: ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры

Приведите примеры программ для разных исполнителей!

Найти среднее арифметическое чисел которое делятся на 3 без остатка от 100 до 1

Помогите пожалуйстаНужно составить таблицу истинности. А→ (B^C)

Напишите полное решение без пояснений: вывести на экран элементы массива у которых сумма номера и элемента дают число…

Сделать программу по задачеВ квадратной матрице целых чисел, размерностью N*N…

Написать программу для заполнения линейного массива случайными числами с некоторого отрезка [a,b]

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: