Методы в Паскаль. Фото внутри

Алгоритмы в Паскаль. Фото снутри

Задать свой вопрос
1 ответ
Var
a,b,c,p,S:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
p:=(a+b+c)/2;
S:=Sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn('S = ',S);
End.



Var
a,b,max:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if agt;b then max:=a
else max:=b;
WriteLn('max = ',max)
End.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт