Под какими БУКВАМИ записано БЕЗ ОШИБОК
А) For i:=1 to 10 do x:=x+1; y:=sqr(y);
Б) For i:=1 to N do y:=y/2;
В) For i:=10 to 1 do x:=x+y;
Г) For i:=1 to 15 do begin x:=sqr(x); y:=sqr(y); end;
Под какими БУКВАМИ записано С ОШИБКАМИ
А) while x:=(x*y)/2 do until (i<10)
Б) while i<=10 do begin x:=2+y; i:=i+1; end;
В) repeat until i>10 do y:=y+2; i:=i+1;
Г) repeat begin i:=i+1; y:=y+2; end; until i>10
Д) repeat y:=x/2; i:=i+1; writeln (y) until i>20
program raf105;
const
n = 3;
var
m: array[1..n, 1..n] of integer;
x: boolean;
i,j: integer;
begin
writeln('Матрица:');
for i:=1 to n do
begin
x:= True;
for j:=1 to n do
begin
m[j,i]:= random(10,99);
write(m[j,i],' ');
end;
writeln;
end;
writeln('Номера убывающих строк:');
for i:=1 to n do
begin
x:= True;
for j:=2 to n do
if not(m[j,i] < m[j-1,i]) and x then
x:= False;
if x then
write(i,' ');
end;
end.
PascalABC