Написать программу для подсчета среднего арифметического значения пяти оценок.

программа на pascal:

const  

n=5;

var

i,s: integer;

sr: real;

a: array[1..n] of integer;

begin

s: =0;

for i: = 1 to n do

begin

writeln('введите оценки');

readln(a[i]);

end;

for i: =1 to n do

begin

s: =s+a[i];

end;

sr: =s/n;

writeln('среднее арифметическое =',sr);

end.

две по порядку)

 

1)

program example1; var a,b,c,d,i: integer;

begin for i: =1000 to 9999 do begin d: = i mod 10; //4 c: = i div 10 mod 10; //3 b: = i div 100 mod 10; //2 a: = i div 1000; //1 if ((a=d) and (b=c)) then write (i: 5); end; end.

 

2)

program example2;

var a,b,c,d,i: integer; h,j,k,l: boolean; begin write ('введите четырехзначное число '); readln(i); d: = i mod 10; //4 c: = i div 10 mod 10; //3 b: = i div 100 mod 10; //2 a: = i div 1000; //1 if (a< > 0) and (a< > 5) then write(a) else write(''); if (b< > 0) and (b< > 5) then write(b) else write(''); if (c< > 0) and (c< > 5) then write(c) else write(''); if (d< > 0) and (d< > 5) then write(d) else write(''); end.

Program p_2; var    z, a : real; m : integer; function step (n: integer; x: real): real; var    i: integer; y: real;       begin      i: =1; y: =1;           while i< =n do              begin          y: =y*x; i: =i+1;               end;                   step: =y;           end;   {конец функции}begin    write(‘введи степень и возводимое число’); readln(z,m);     f: =step(m,z);     writeln(z, ‘ в степени’, m, ‘=’,f); end.