Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
3 вариант, все остальное рассуждение.
Я недавно была на на такой же ярмарке, и там рассказывалось про всякие учебные заведения в твоем городе, р-не, области, и представители этих учереждений выходили и рассказывали о своих колледжах и институтов и какие именно там есть специализации.
Ну надеюсь понятно объяснила.
Операторы цикла while и repeat<span> используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat. Дальше решить не могу, но вот определение.</span>
Поясню.
Строка "итог" – это ответ проводника о том, кто туземец.
Значит, если проводник сказал, что туземец правдолюб, проводник всегда правдолюб