Дан массив натуральных чисел. заполнить с датчика случайных чисел. подсчитать количество четных чисел от 1 до 10.

Var   a: array[1..1000] of integer;       i: integer;   chet: integer;   nechet: integer; begin     i: =1;     randomize;     while (i< =1000) do        begin         a[i] : = random(10);         if( a[i] mod 2 = 0) then           chet: =chet+1         else nechet: = nechet + 1;           i  : = i + 1;   end;   writeln('четных чисел: ',chet,' ','нечетных чисел: ' ,nechet) end.

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

 

writeln("периметр = ",a+b+c);

 

s = {формула герона}