ПОМОГИТЕ ПОЖАЛУЙСТА ХОТЯ БЫ 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.