Поделитесь своими знаниями, ответьте на вопрос:
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