Информатика помогите 9-11 класс

0 голосов
14 просмотров

Информатика помогите 9-11 класс


image

Информатика (216 баллов) | 14 просмотров
Дан 1 ответ
0 голосов

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

M:= (5+6*c)/(5*v-45+t); writeln('M3= ',M);

end;

end.

(6.5k баллов)