Написать ответ и подробно разобрать решение, в том числе для подобных заданий var a,b,t,M,R: longint;

function F(x:longint):longint;
begin
if (x div 4<=21-x div 4) then
F:= x div 4
else F:= 21- x div 4
end;

begin
a:=0; b:=60;
M:=a; R:=F(a);
for t:= a to b do begin
if (F(t)>=R) then begin
M:=t;
R:=F(t)
end
end;
write (M+R)
end.

Алёна280104    2   18.06.2020 22:04    3