Составить блок схему и написать программку на турбо Паскале . Вычеслить

Составить блок схему и написать программу на турбо Паскале . Вычеслить s=1/2[max(a,b,c)+min(a,b,c)]

1) a=8; b=3; c=-2;

2)a=1; b=4; c=16;

Задать свой вопрос
1 ответ
1)
var s,a,b,c:real;
begin
a:=8; b:=3; c:=-2;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.
2)
var s,a,b,c:real;
begin
a:=1; b:=4; c:=16;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.
Вячеслав Шевердяев
uses crt;var a,b,c,max,min:integer; s:real;Begin clrscr; Write('a='); readln(a); Write('b='); readln(b); Write('c='); readln(c); max:=a; If max>b then max:=b; if max>c then max:=c; min:=a; if min 4 && number % 100 < 20) ? 2 : cases[(number % 10 < 5) ? number % 10 : 5]]; }
-->

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт