Введение в информатику. Практикум - ответы
Количество вопросов - 79
х:=12; for i:=1 to 2 do begin y:=x div 10; x:=x mod 10; end p:=x*y; writeln(p);выводит на экран значение:
j:=1;i:=1;while (i<3) do begin if (а[i]<а[j]) then j:=i; i:=i+1 end;write(i,j);выведет на экран пару чисел в следующей последовательности:
s:=0;i:=2;while (i>2) do begin i:=i–1; s:=s*i end;равно:
y:='info';n:=length(у);i:=1;while (i<=n/2) do begin a:=y[i]; y[i]:=y[n–i+1]; y[n–i+1]:=a; i:=i+1 end;writeln(y);выдаст на экран текст вида:
j:=4;i:=3;while (i>1) do begin if (а[i]>а[j]) then j:=i; i:=i–1 end;write(i,j);выведет на экран пару чисел в следующей последовательности:
m:=0;p:=1;for i:=1 to 4 do if (p<i) then p:=i else m:=i;writeln(m+p);выводит на экран значение равное:
y:='informatics';n:=length(у);i:=1;while (i<=n) do begin a:=y[i]; y[i]:=y[n–i+1]; y[n–i+1]:=a; i:=i+1 end;writeln(y);выдаст на экран текст вида:
х:=1234;for i:=1 to 2 do begin y:=x div 2 div 3; x:=x mod 5; p:=x+y; endwriteln(p);выводит на экран значение:
m:=0; p:=1; for i:=1 to 3 do if (i=p) then p:=i else m:=i; writeln(m+p);выводит на экран значение равное:
a:='informatics';b:='soft';k:=min(length(а),length(b));for i:=1 to k do if (а[i]=b[i]) then k:=k+1;write(k);выведет на экран значение переменной k равное:
a:='info';b:='soft';k:=max(length(а),length(b));for i:=1 to k do if (а[i]=b[i]) then k:=k–1;write(k);выведет на экран значение переменной k равное:
s:=0;i:=4;while (i>4) do begin i:=i–1; s:=s+i end;равно:
i:=0; k:=0; while (i<8) do begin k:=k+2; i:=i+2 end;переменная k примет значение>: