Пожаловаться
- 09.03.2017 18:13
- Информатика
- remove_red_eye 4123
- thumb_up 11
Ответы и объяснения 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 a>b then max:=a
else max:=b;
WriteLn('max = ',max)
End.
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 a>b then max:=a
else max:=b;
WriteLn('max = ',max)
End.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы