Вложенные условные операторы

Задание

1. Вывести на экран номер четверти, которой принадлежит точка с координатами

program zadanie1;
var x, y: real;
begin
cls;
write('x=');
readln(x);
write('y=');
readln(y);
if

Задание

2. Запросить стороны треугольника и определить, является ли он разносторонним, равнобедренным

program zadanie_2;
var a, b, c: real;
begin
cls;
write('Три стороны a, b,

Задание

3. Составьте программу для вычисления выражения
а) max(x+y+z, xyz)+3.
Значения переменных x,

program zadanie_3a;
uses crt;
var x, y, z: real;
begin
cls;
write('Введите x, y,

Задание

3. Составьте программу для вычисления выражения
b) min(x2+y2, y2+z2)-4.
Значения переменных x,

program zadanie_3b;
uses crt;
var x, y, z: real;
begin
cls;
write('Введите x, y,

Задание

4. Составить программу вычисления функции
у=
5. Предложите пользователю ввести число с