Написать программу для вывода переменной а, учитывая, что если а>5, то к значению переменной прибавляется 1. Паскаль

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит

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

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

решение:  

1) 640 * 480 * 0,5 байта = 153600 байт.  512 * 1024 = 524288 байт  524288 / 153600 = 3,413 кадров.  2) 640 * 480 * 1 байт = 307200 байт  524288 / 307200 = 1,706 кадра.

ответ: примерно на одну страницу с половиной: )

var a,n,i,s,pr: integer;

begin

  a: =1;

  s: =0;

  pr: =1;

  readln(n);

  for i: =1 to n do begin

    s: =s+a;

    pr: =pr*a;

    a: =a+1;

                          end;

  writeln('сумма: ',s,', произведение: ',pr,', среднее арифметическое: ',s/n: 0: 3);

end.