Создание простых программ и программ с анализом данных...С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ\\\всего 9 штук

program ch;
var
x1,x2,x3,sum,ac,bc:integer;
begin
writeln ('vvedite koordinatu A');
readln (x1);
writeln ('vvedite koordinatu B');
readln (x2);
writeln ('vvedite koordinatu C');
readln (x3);
ac:=x3-x1;
bc:=x3-x2;
sum:=ac+bc;
writeln ('dlina ac = ',ac);
writeln ('dlina bc = ',bc);
writeln ('ix summa = ',sum);
readln;
end.
 

program fn;
var
n:integer;
begin
writeln ('vvedite 4islo');
readln (n);
if(n mod 2=1) and (n>=100) and (n<=999) then
writeln ('4islo 3xzna4noe ne4etnoe')
else writeln('net');
readln;
end.

program Factorial;
uses wincrt;
var i,t: integer;     k:real;
begin
repeat
write('vvedite chislo:');
readln (t);
until t>0;
k:=1;
for i:=1 to t  do
k:=k*i;
writeln ('Factorial raven: ' ,k:4:9);
readln;
end.

Program 123;
uses crt;
var
a,b,c,d,e,p: integer;
Begin
clrscr;
Writeln('Введите  А,Б,С:');
readln (a, b, c);
if (a<b) and (b<c) or (a>b) and (b>c)
then
begin
a:=2*a;  b:=2*b;  c:=2*c;
writeln(a,'  ',b,'  ',c);
end
else
begin
d:=(-1)*a;  e:=(-1)*b;   p:=(-1)*c;
writeln(d,'  ',e,'  ',p);
readln;
end;
End.

 
var
   a,q:longint;
   k:boolean;
begin
   readln(a);
   k:=false;
   if odd(a)=true then
      k:=true;
   while a>0 do
   begin
      a:=a div 10;
      inc(q);
   end;
   if (k=false)and(q<>3)or(q<>3)or(k=false) then
      writeln('No')
   else
   writeln('Yes');
   readln;
end.

 
uses crt;
var
    k,i,f,n,l:longint;
begin
    clrscr;
    readln(n);
    f:=0;
    l:=0;
    while n<>0 do
    begin
        k:=n mod 10;
        f:=f+k;
        l:=l+1;
        n:=n div 10;
    end;
    writeln(f);
    writeln(l);
    readln;
end.

var
   a,b,c,n:integer;
begin
   readln(n);
   a:=n div 100;
   c:=n mod 10;
   b:=n div 10 mod 10;
   writeln(a,c,b);
   readln;
end.
 

Program z;
var
    n,x1,x2:integer;
begin
    writeln('vv n');
    readln(n);
    x1:=n div 10;
    x2:=n mod 10;
    if x1=1 then begin
        if x2=0 then write('des9tb ');
        if x2=1 then write('odinnadcatb ');
        if x2=2 then write('dvenadcatb ');
        if x2=3 then write('trinadcatb ');
        if x2=4 then write('4etblpnadcatb ');
        if x2=5 then write('II9THAdcatb ');
        if x2=6 then write('IIIeCTHAdcatb ');
        if x2=7 then write('cemHadcatb ');
        if x2=8 then write('BoceMHadcatb ');
        if x2=9 then write('DeB9THadcatb ');
        end
    else
        begin
           if x1=2 then write('DBAdcatb ');
           if x1=3 then write('tpudcatb ');
           if x1=4 then write('copok ');
           if x2=1 then write('odHo ');
           if x2=2 then write('DBA ');
           if x2=3 then write('TPU ');
           if x2=4 then write('4eTblPe ');
           if x2=5 then write('II9tb ');
           if x2=6 then write('IIIECTb ');
           if x2=7 then write('CeMb ');
           if x2=8 then write('BoceMb ');
           if x2=9 then write('DeB9Tb ');
        end;
        if (x2=1)and(x1<>1)then write('y4ebnoe zadanie')
        else
        if (x2=2)or(x2=3)or(x2=4)and(x2<>1)then write('y4ebHblx zadani9')
        else
        if (x2=0)or(x2=5)or(x2=6)or(x2=7)or(x2=8)or(x2=9)or(x1=1) then write('y4ebHblx zadanii');
    readln;
end.