Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 500; второй равен целой части квадратного корня изпредыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю, то соответствующий элемент массива делать равным 1)

uses crt; vara: array [1..9] of integer; i,c,m,n: integer; b: real; beginclrscr; randomize(); c: =1; for i: =1 to 9 dobeginif i=c thenbegina[i]: =500; c: =c+3; endelsebeginif i mod 3=0 then a[i]: =trunc(i/3) else a[i]: =trunc(sqrt(a[i-1])); end; write(a[i],' '); end; readln(); end.

программа на python

 

 

import sys 

#ввод значения 

a = raw_input("введите значение возраста")

#пробуем преобразовать введенное значене к числу

try:

  a = int(a)

except:

  # если введено значение котоое нельзя преобразовать в число ругаемся и завершаем программу

  print "не корректное значение"

  sys.exit(1)

 

  if a < 0:

  print "возраст не может быть меньше нуля"

elif a> =6 and a< =17:

  print "школьник"

else:

  print "не школьник"

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

var a: array[1..40] of integer;

i, j, cou, coumax, amax: integer;

begin

    coumax: =0;

    for i: =1 to 40 do

      readln(a[i]);

    for i: =1 to 40 do begin

      cou: =0;

      for j: =1 to 40 do

          if(a[i]=a[j]) then inc(cou);

      if(cou> coumax) then begin

          coumax: =cou;

          amax: =a[i];

      end;

    writeln(amax, '  is the most repeated value');

end.

 

var a1, temp, cou, i, sum: integer;

begin

    read(a1);

    if (a1> =0) then cou: =1 else cou: =0;

    if (cou> 0) then sum: =a1 else sum: =0;

    for i: =2 to 40 do begin

      read(temp);

      if (temp> 0) and (temp mod a1=0) then begin

          inc(cou);

          inc(sum,temp);

      end;

    end;

    writeln(sum/cou)

end.