посчитайте ХОТЯ БЫ 2 ЗАДАНИЯ, ОЧЕНЬ НАДО № 1. Вводятся два целых числа. Выведите разность между большим числом и средним арифметическим двух чисел. № 2. Даны действительные числа x и y, не равные друг другу. Большее из этих двух чисел заменить квадратом меньшего числа, а меньшее – квадратом большего. № 3. Дано действительное число х. Составить программу, которая находит значение функции х, если х ∈ (-∞; -7];y = -4*х, в остальных случаях. (На фотографии изображено) № 4. Среди чисел a, b, c, d определить те, значения которых кратны 9. Подсчитать количество этих чисел. ​

1.

var

max, a, b: integer;

difference, mean: real;

begin

write('Введите два числа: ', #10);

readln(a, b);

if (a > b) then max:=a else max:=b;

mean:=(a+b)/2;

difference:=max-mean;

write('Наибольшее число: ', max, #10);

write('Среднее арифметическое: ', mean, #10);

write('Разность между наибольшим числом и средним арифметическим = ', difference);

end.

2.

var

temp, min, max, x, y: real;

check: boolean;

begin

check := false;

write('Введите два действительных числа: ', #10);

readln(x, y);

if (x = y) then

repeat

write('Пожалуйста, повторите ввод. Числа не должны быть равны друг другу. ', #10);

readln(x, y);

if (x <> y) then begin

check := true;

if (x > y) then

begin

min := y;max := x;

end else if (x < y ) then

begin

min := x;

max := y

end;

end;

until (x <> y) else

if (x > y) then begin

check := true;

max := x;

min := y;

end

else if (x < y) then begin

check := true;

max := y;

min := x;

end;

if (check) then begin

temp := max;

write('Наименьшее число: ', min, #10);

write('Наибольшее число: ', max, #10);

max := sqr(min);

min := sqr(temp);

write('Квадрат наименьшего числа: ', max:2, #10);

write('Квадрат наибольшего числа: ', min:2, #10);

end;

end.

3.

var

y, x:real;

begin

write('Введите действительное число: ', #10);

readln(x);

if (x < -7) or (x = -7) then y:=x else

y:=-4*x;

write('Значение функции: ', y, #10);

end.

4.

type

vector = array[1. . 4] of integer;

var

count, a, b, c, d: integer;

arr:vector;

begin

count:=0;

write('Введите числа a, b, c, d: ', #10);

readln(a, b, c, d);

for var i:=1 to 4 do begin

arr[1]:=a;

arr[2]:=b;

arr[3]:=c;

arr[4]:=d;

end;

for var i:=1 to 4 do

if (arr[i] mod 9 = 0) then inc(count);

write('Количество чисел, кратных 9: ', count, #10);

end.