1. Қандай қызмет салаларында үш өлшемді модельдер пайдаланылады?​

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.