const c = 30;
var v,t,M :real;
begin
write('введите v'); read(v);
write('введите t'); read(t);
if (v >= -4) and ( v < 2) then begin
M:= 7*v + t; writeln('M0= ',M);end
else if (v >= -200) and (v < -20) then begin
M:= 3 - t; writeln('M1= ',M);end
else if (v < -200) then begin
M:= 10; writeln('M2= ',M);end;
if (t > 0) and ( t <= 121) then begin
M:= (5+6*c)/(5*v-45+t); writeln('M3= ',M);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const c = 30;
var v,t,M :real;
begin
write('введите v'); read(v);
write('введите t'); read(t);
if (v >= -4) and ( v < 2) then begin
M:= 7*v + t; writeln('M0= ',M);end
else if (v >= -200) and (v < -20) then begin
M:= 3 - t; writeln('M1= ',M);end
else if (v < -200) then begin
M:= 10; writeln('M2= ',M);end;
if (t > 0) and ( t <= 121) then begin
M:= (5+6*c)/(5*v-45+t); writeln('M3= ',M);
end;
end.