1) Який з наведених фрагментів алгоритму є циклом з лічильником? (0,5 б.) a) while a< -7 do
б) for i:=2 to 7 do
в) if ao2 thеn
а:a+1;
а:=a+7;
ата-2;
2) Який з наведених фрагментів алгоритму є циклом з передумовою? (0,5 б.)
a) while a -7 do
б) for i:=2 to 7 do
в) ifao2 thеn
а:=a+1;
ата+7;
аза-2;
3) Скільки разів будуть виконані команди тіла циклу в наведеному нижче фрагменті
алгоритму? (0,5 б.)
а:=340;
for i:=7 to 12 do
а:=a+;
a) 5;
6)6;
в) 7;
г) 12.
4) Скільки разів будуть виконані команди тіла циклу в наведеному нижче фрагменті
алгоритму? (0,5 б.)
а:=28;
for i:=20 downto 17 do
а:=a-1;
а) 3;
6) 4;
г) 17.
5) Скільки разів будуть виконані команди тіла циклу в наведеному нижче фрагменті
алгоритму? (0,5 б.)
а:= -6;
while a<4 do
а:=a+4;
а) 2;
6) 3;
в) 4;
г) 6.
6) Скільки разів будуть виконані команди тіла циклу в наведеному нижче фрагмент
алгоритму? (0,5 б.)
а:=21;
while ao6 do
а:=a-5;
а) 0;
6) 1;
в) 2;
г) 3.
в) 8;
// Внимание! Если программа не работает, обновите версию!
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
Строки, содержащие только нули: 1 2