Укажите наименьшее и наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 6: var x, L, M: integer; begin readln(x); L:=0; М:=0; while x > 0 do begin L:=L+1; М я не хочу два...

Задача №1
 
var a,b,x,z,sra,srg:real; 
begin 
writeln('Введите 4 числа'); 
read(a,b,x,z); 
sra:=(a+b+x+z)/4; 
srg:=power(a*b*x*z, 1/4); 
writeln('Среднее арифметическое этих чисел =',sra); 
writeln('Среднее геометрическое этих числе =',srg); 
end. 

Задача №2

var a,b,sra,srg:real; 
begin 
writeln('Введите 2 числа'); 
read(a,b); 
sra:=(a+b)/2; 
srg:=power(a*b, 1/2); 
writeln('Среднее арифметическое этих чисел =',sra); 
writeln('Среднее геометрическое этих числе =',srg); 
writeln('Модули этих чисел a=',abs(a), ' b=',abs(b)) 
end.

Задача №3

var a,b,c:real; 
begin 
writeln('Введите длину катетов и гипотенузы соотвественно'); 
read(a,b,c); 
if a=0 then a:=sqrt(sqr(c)-sqr(b)); 
if b=0 then b:=sqrt(sqr(c)-sqr(a)); 
if c=0 then c:=sqrt(sqr(a)+sqr(b)); 
writeln('Площадь треугольника =',a*b*0.5); 
writeln('Периметр треугольника =',a+b+c); 
end.

а)

монитор, клавиатура, мышка. Хотя можно изворотится и без мышки сделать, но это сложно.

Adobe photoshop,  UltraISO

б)

подключить оборудование, открыть photoshop, смотри изображение, открываем сайт (https://online-audio-converter.com/ru/) и конвертируем видео в mp3, запускаем программу UltraISO

, В окно программы перетягиваем файлы которые нужно записать, Нажимаем на кнопку записи  (иконка горящего диска), откроется еще одно окно, в котором нажимаем на «Записать» и ждем окончания процесса записи.

в) https://primtrud.ru/content/tehnika-bezopasnosti-pri-rabote-s-kompyuterom.html - правила работы за компьютером