Ответы и объяснения

Лучший Ответ!
2014-02-06T14:15:36+00:00
2)
Program abc_2;
Var d,x1,x2,y1,y2:real;
begin
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
d:=sqr(sqr(x2-x1)+sqr(y2-y1));
writeln(d);
end.
3)
program abc_3;
var e,d,s,x:integer;
begin;
writeln('Введите число единиц');
readln(e);
writeln('Введите число десятков');
readln(d);
writeln('Введите число сотен');
readln(s);
d:=d*10;
s:=s*100;
x:=e+d+s;
writeln(x);
end.
4)
program abc_4;
var S,V,V1,t1,t2,x:real;
begin
readln(V,S);
if V1>0 then
t1:=S/(V+V1)
else
t2:=S/V;
writeln(t1/t2);
end.
7)
program abc_7;
var a,c1,c2,c3,c4,c5:integer;
beginwriteln('Введите число');
readln(a);
c1:=a div 10000;
c2:=a mod 10000
;c2:=c2 div 1000;
c3:=a mod 1000;
c3:=c3 div 100;
c4:=a mod 100;
c4:=c4 div 10;
c5:=a mod 10;
writeln(c1,' ',c2,' ',c3,' ',c4,' ',c5);
end.
8)
program abc_8;
var a,t,s,d,e:integer;
begin
writeln('Введите число');
readln(a);
t:=a div 1000;
s:= a div 100;
s:=s mod 10;
d:=a mod 100;
d:=d div 10;
e:=a mod 10;
writeln('Число тысяч=',t,' ','Число сотен=',s,' ','Число десятков=',d,' ','Число единиц=',e);
end.
Шестую не знаю как, сори:)