Перевожу на русский.
Если а больше b,то d=a, если нет- d=b, .
У тебя а>b? Нет. Значит d=5; d=5-2=3.
Ответ d=3.
A=2+(128/2)=2+64=66
b=7+(66/2)=7+33=40
Ответ: 40
Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.