Напиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "ция". запрос:

program raf105;

const

 n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять

var

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

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

 i,j,k,sum,kolsum: integer;

 x: boolean;

begin

write('Введите число k (не больше ',n,'): ');

readln(k);

for i:=1 to n do

begin

 writeln;

 writeln('Введите ',n,' чис. ',i,' стр.');

 for j:=1 to n do

   readln(a[i,j]);

end;

writeln;

writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');  

for i:=1 to n do

begin

 x:= true;

 sum:= 0;

 for j:=1 to k do

 begin

   if x and (a[i,j] <= 0)

     then x:= false;

 end;

   if x

   then  

   begin

     for j:=1 to n do

       sum+= a[i,j];

     kolsum+= 1;

     asum[kolsum]:= sum;

     writeln(asum[kolsum]);

   end;

end;

end.

1) ответ: 12

a 1 2 3

b 1 2 4

2) ответ: i = 30

3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.

3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02

4) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.

Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.

5) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.