Запишите оператор для: 1)вычисления средних арифметических x1 и x2 2)уменьшения на единицу значения переменной k 3)увеличения на единицу значения переменной i 4) вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей 2.запишите раздел описания переменных необходимых для вычисления: а) значения функции y=х(в квадрате) б) площади прямоугольника в)стоимости покупки, состоящей из нескольких тетрадей и такого же кол-ва обложек г)стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей

1.

1) s : = (x1+x2)/2

2) dec(k) или  k: =k-1

3) inc(i) или i: =i+1

4) sum : = t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;   kt, kr, kk - количество тетрадей, ручек и карандашей) 

 

2.

а) значения функции y=х(в квадрате)

var y,x: real

 

б) площади прямоугольника

var a,b,s: real

 

в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек

var kv: integer; st,so,sum: real

 

г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей

var kvt,kvr,kvk: integer; st,sr,sk,sum: real

1) a: =(x1+x2)/2

2)k: =k-1;

3)inc(i); (или i: =i+1);

 

Минимальное число, кратное 3 - это само число 3. а дальше увеличиваем числа на // pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =3;   var s: =0;   repeat       s+=n;       if s> =100 then begin s-=n; break end       else           if n< > 3 then write('+',n) else write(n);       n+=3   until false;   writeln('=',s) end. результат 3+6+9+12+15+18+21=84

//pascalabc.net 3.2 сборка 1318 var   l, r, counter, i: integer; function difnum(a: integer): integer; var  se: set of integer;   i: integer; begin   while a > 0 do   begin     if a mod 10 in se then     begin       difnum : = 0;       exit;     end     else include(se, a mod 10);     a : = a div 10;   end;   difnum : = 1; end; begin   read(l, r);   for i : = l to r do     counter += difnum(i);   writeln(counter); end. //альтернативное решение на паскале var   l,r: integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.); end. //dev-c++ 5.11 (c) #include < stdio.h> #include < malloc.h> int difnum(int); int main(void)   {int l,r,counter=0;   scanf("%d %d",& l,& r);   for(int i=l; i< =r; i++)   counter+=difnum(i);   printf("%d",counter); return 0; } int difnum(int a)   {int k=1,*nums;   nums=(int*)malloc(k*sizeof(int));   nums[0]=-1;   while(a> 0)   {for(int i=0; i< k; i++)     if(a%10==nums[i])     return 0;   k++;   nums=(int*)malloc(k*sizeof(int));   nums[k-1]=a%10;   a/=10; }   free(nums);   return 1; } пример ввода: 1 12 пример вывода: 11