Значения элементов двумерного массива A размером 5x5 задаются с вложенного цикла в представленном фрагменте программы:

for i:=1 tо 5 do

for j:=1 tо 5 do begin

A[i, j] := i*j;

end;

Сколько элементов массива будут иметь значения больше 10? Введите число

знаки той же арифметики, если эмоции- те же смайлики.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n