Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
'1':WriteLn('Математика');
'2':WriteLn('Физика');
'3':WriteLn('Химия');
'4':WriteLn('Геометрия');
'5':WriteLn('География');
'6':WriteLn('Краеведенье');
End;
End.
Uses crt;
var x,y,z: integer;
begin
write('Введи три числа: ');
read(x,y,z);
writeln;
writeln(x,'+',y,'+',z,'=',x+y+z);
writeln(x,'*',y,'*',z,'=',x*y*z);
writeln('(',x,'+',y,'+',z,')/3=',(x+y+z)/3);
<span>end.</span>
1.
Четыре числа - a, b, c, d, каждое больше нуля
их среднее арифметическое - (a+b+c+d)/4
2.
Два числа a,b
<span>среднее арифметическое их квадратов = (a^(2)+b^(2))/2
</span><span>среднее арифметическое их модулей = (|a|+|b|)/2</span>
Процессор просто это мозг компа