Program Pr1;
uses crt;
var x,y,z:integer;
a:real;
Begin
clrscr;
readln(x,y,z);
a:=(x+y+z)/3;
writeln(a:8:3);
a:=exp(1/3*ln(x*y*z));
writeln(a:8:3);
end.
Ответ:
program obmen;
var x,y,z:integer;
begin
writeln('введите x');
readln(x);
writeln(' введите y');
readln(y);
if x>y
then z:=x;
if z>y
then x:=y;
if z>x
then y:=z;
writeln('x= ', x);
writeln('y = ', y);
end.
Объяснение:
Смотри, ты вводишь x и y, и если x>y, то через if-ы присваиваешь значение x значению z; значению x значение y и значению y значение z
Имена пишу сокращённо:
Р сказал: последнее место занял А
Э сказал: последнее место занял Э
Значит, один из них солгал - не могли оба занять последнее место.
Значит, А сказал правду, и его место не последнее.
Значит, солгал Р, сказав что у А последнее место.
Ответ: солгал Раиф
Смотря что ты хочешь услышать