=IF(H8<45;IF(H8<30;"Претендент";"Кандидат в мастера спорта");"Мастер спорта")
Var a,b,c,h,p:real;
begin
write('Введите a, b, c: ');
readln(a,b,c);
p:=(a+b+c)/2;
h:=2*sqrt(p*(p-a)*(p-b)*(p-c))/a;
writeln('h=',h);
<span>end.</span>
Не парься, это легко)
program example;
var str: string;i, count: integer;begin write('Ваша строка: '); readln(str); i := length(str); if i > 0 then begin count := 1; while i > 0 do begin if str[i] = ' ' then count := count + 1; i := i - 1; end; end else count := 0; writeln('Количество слов: ', count); readln;end.
1) Набрать 8 литровый сосуд
2) Перелить в 3-x литровый из 8-ми литрового
3) Вылить все из 3-х литрового и повторить действие 2
4) Повторить действие 3
В 3-х литровом сосуде теперь 2 литра
5) Набрать 8 литровый сосуд и вылить из него 1 литр в 3-х литровый