Необходимо сравнить их бейсик не знаю вот в паскале накидал. думаю не много зная синтаксис бейсика проблем не будет.
uses crt; var a,b,c,min,max,srednee:integer; begin writeln('Введите 3 целых числа:'); read(a,b,c); ax:=a else max:=b; if c>max then max:=c; if a<b then min:=a else min:=b; if c<min then min:=c; srednee:=a+b+c-mn-mx; write('среднее число=',srednee); end.
INPUT "A=";A MIN=A MAX=A INPUT "B=";B IF B<MIN THEN MIN=B IF B>MAX THEN MAX=B INPUT "C=";C IF C<MIN THEN MIN=C IF C>MAX THEN MAX=C S=A+B+C-MAX-MIN PRINT "S=";S
Если речь идет о среднем арифметическом, то INPUT "A=";A INPUT "B=";B INPUT "C=";C S=(A+B+C)/3 PRINT "S=";S
Программа вкратце. Если посещал уроки то сможешь ее написать чтоб работала. В условии задачи ошибка, наверное вместо - написал плюс. y = sqrt(х+5). если x>0. пусть здесь будет так: у= sqrt(5-х). если x<0
Program radical; var x,y:integer; Begin readln(x); if ((x+5) >= 0) and ((5-х) >=0)) then begin { проверка чтобы не-было меньше нуля } if (x>0) then y = sqrt(x+5); else if (x<0) then y = sqrt(5-x); writeln('результат=', y);
end else writeln("нельзя извлечь корень из отрицательного числа");
uses crt;
var a,b,c,min,max,srednee:integer;
begin
writeln('Введите 3 целых числа:');
read(a,b,c);
ax:=a else max:=b;
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
srednee:=a+b+c-mn-mx;
write('среднее число=',srednee);
end.