Пожалуйста составьте блок схему и составьте программу на языке Паскаль Уровень А задача №1,2

+ 0 -

Yaroslavamods

03 окт. 2014 г., 13:22:32 (9 лет назад)

1)Program ss;
var x,q,w,e,r:real;
begin
writeln('x');
readln(x);
q:=sqr(x);
w:=sqrt(x);
e:=sin(x);
r:=cos(x);
writeln('квадрат =',q);
writeln('квадратный корень =',w);
writeln('синус',e);
writeln('косинус',r);
end.


2)Program ss;
var x1,q,y1,x2,y2:real;
begin
writeln('x1');
readln(x1);
writeln('y1');
readln(y1);
writeln('x2');
readln(x2);
writeln('y2');
readln(y2);
q:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(q)
end.