1. Рассмотрите алгоритм, в котором используется функция.

a) Укажите имя функции? _

Определите количество аргументов, которое содержит функция? _
b) Определите, сколько раз программа вызовет функцию при исполнении алгоритма? _
c) Определите число, которое будет выведено на экран в результате выполнения: _

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.

радиосвязь!

попов!

                                                           

а если число

 

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

 

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

 

end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы