Размещено 3 года назад по предмету
Информатика
от besmertnykh08
трасировка 1)PROGRAM PR1a; VAR X,Y,Y1,Y2,Y3:REAL; BEGIN WRITE (‘Введите X = ‘); READLN(X); Y1:=2/5*X+15; Y2:=SQR(X+1/2)+1/75; Y3:= 7-X; IF (X>=-6) AND (X -4) AND (X 3) AND (X<=7) THEN Y:=Y3; WRITELN(‘ Ответ Y = ‘, Y:8:3); END.
2)PROGRAM PR1b; VAR i,m:integer; S,SR,a:real: BEGIN write(‘ Введите m’); readln(m); S:=0; FOR i:=1 to m do begin write(‘ Введите ‘,i,’ число’); readln(a); S:=S+a: end; SR:=S/m; writeln(‘Ответ: SR = ’,SR:8:3); READLN; END.