Подготовка к практической работе 31 января 2017 года (7 класс)

{Program pr84_1;
var a,b:integer;
z:real;
begin
write('a='); readln(a);
write('b='); readln(b);
z:=(a*a+b)*a/b;
writeln('z=' , z);

end.}

{Program pr84_2;
var x,y,c:integer;
z:real;
begin
write('x='); readln(x);
write('y='); readln(y);
write('c='); readln(c);
z:=(x+y)/(2*c);
writeln('z=' , z);
end.}

{Program pr84_3;
var x:integer;
begin
write('x='); readln(x);
x:=abs(x)-2;
writeln('x=' , x);
end.}

{Program pr84_4;
var z:real;
begin
write('z='); readln(z);
z:=sqr(trunc(z));
writeln('z=' , z);
end.}

 {Program pr84_5;
var x:integer;
begin
write('введите двузначное число x='); readln(x);
writeln('первая цифра =',x div 10);
end.}

{Program pr84_6;
var x:integer;
begin
write('введите двузначное число x='); readln(x);
writeln('последняя цифра =',x mod 10);
x:=sqr(x mod 10);
writeln('квадрат последней цифры =',x);
end.}

{Program pr84_7;
var t,v,s:real;
begin
write('введите время движения авто t='); readln(t);
write('введите скорость движения авто V =');readln(V);
S:=t*v;
writeln('расстояние =',s);
end. }

{Program pr84_8;
var r1,r2,r3,Sr:real;
begin
write('введите рост трех друзей r1,r2,r3='); readln(r1,r2,r3);
Sr:=(r1+r2+r3)/3;
writeln('средний рост друзей =',sr);
end.}