var c, a,b: integer;
begin
Writeln ('Введите 1 ое число');
readln(a);
Writeln ('Введите 2 ое число');
readln(b);
IF (a*b)<0 then
c:=(A*B)*2
else
c:=(a*B)*1.5;
writeln(c);
end;
Вроде так
Ответ:
пероопусти
повтори 36[вперед 20 направо 10]
пероопусти
повтори 36[вперед 20 налево 10]
пероподними
налево 50
Объяснение: ПРОЧИТАЙ ЭТО!
Там нажми кнопку Старт 20 раз.
9 человек
так как всего 6, 1 за все и ещё 2 за все
и того 9
<em><u>Уверен, что формула в условии написана неверно, но уж как написано...</u></em>
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5))
end.
<em><u>Тестовое решение:</u></em>
Введите a,b,c: -3 5.5 4
Результат: 31
<em><u>А вот так, на мой взгляд, должно быть:</u></em>
var
a,b,c:real;
begin
Write('Введите a,b,c: '); Read(a,b,c);
Writeln('Результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5)))
end.
<em><u>Тестовое решение:</u></em>
Введите a,b,c: -3 5.5 4
Результат: 0.6
Подробное решение во вложении