)препод говоит это простые )) решить потому что для меня они 1) abs(10div12) 2) abs(sqr(17))

1.) 10 div 12 = 0

abs(0) = 0;

2.) sqr(17) = 289

abs(289) = 289;

abs - модуль числа.

div - целочисленный результат деления

mod - остаток от деления.

 

1) 10/12 = 0.8. целый результат - 0. модуль нуля тоже ноль.

2) корень из 17 - 4,12. модуль - 4. 

1) var z: array[1..30] of integer;   i,max,min,s: integer; beginfor i: =1 to 30 do  z[i]: =random(100); max: =z[1]; min: =z[1]; for i: =1 to 30 do     if z[i]> max then max: =z[i]; for i: =1 to 30 do     if z[i]< min then min: =z[i]; for i: =1 to 30 do   if z[i]< ((max+min)/2) then s: =s+z[i]; write('s= ',s); end.2)var m: array[1..30] of integer;   i,max,s: integer;   z: real; beginfor i: =1 to 30 do  m[i]: =random(100); max: =m[1]; for i: =1 to 30 do   if m[i]> max then max: =m[i]; for i: =1 to 30 do   if   m[i]> 0 then s: =s+m[i]; z: =(s+max)/3; write('z= ',z: 0: 0); end.

Function gcd(a,b: longint): longint; { нахождение нод }var  i: longint; begin  while b < > 0 do   begin      a : = a mod b;       i : = b; b : = a; a : = i  end;   gcd : = aend; procedure shortfraction(var m,n: longint); var  k: longint; begin  k: =gcd(m,n);   m: =m div k; n: =n div kend; var  a,b: longint; begin  write('введите числитель и знаменатель дроби: '); readln(a,b);   shortfraction(a,b);   writeln('дробь после сокращения равна ',a,'/',b)end.тестовое решение: введите числитель и знаменатель дроби: 25 15дробь после сокращения равна 5/3