Что будет выведено на экран в результате работы следующего цикла (k и i - целые переменные)? a) k:= 1 k:= 1;
нц для i от 1 до 5 for i:= 1 to 5 do
a:= 1 write (i) ;
кц
ответ:
б) k:=1 k:= 1;
нц для i от 1 до 5 for i:=1 to 5 do
вывод i+k write (i+k) ;
кц
ответ:
в) k:= 1 k:= 1;
нц для i от 1 до 5 for i:=1 to 5 do begin
вывод k*k, ' ' write (k*k, ' ') ;
k:= k + 2 k:= k + 2
кц end.
ответ:
г) k:= 1 k:= 8;
нц для i от 5 до 1 шаг -1 for i:= 5 downto 1 do begin
вывод i write (i);
k:= k-2 k:= k-2
кц end;
ответ:
д) k:=8 k:=8;
нц для i от 5 до 1 шаг -1 for i:=5 downto 1 do begin
вывод 2*i-k write (2*i-k);
k:= k-2 k:= k-2
кц end;
ответ:
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
from itertools import product
i = open('input.txt', 'r')
o = open('output.txt', 'w+')
l = int(i.
alpha = "245"
d = []
for s in product(alpha, repeat=l):
d.append([" ".join(
for q in d[1: ]:
s = " ".join(q)
if int(s.count('2')) > 2:
continue
o.write(" ".join(q) + '\n')
i.close()
o.close()
код к : «перевод кода с питона на паскаль»
var
n,c,i,ost,b,t,d: integer;
a,k: string;
begin
readln(n);
c: =1;
for i: =1 to n do
c: =c*3;
c: =c-1;
for i: =1 to c do
begin
k: ='';
b: =i;
t: =0;
while b> 0 do
begin
ost: =b mod 3;
if ost=0 then inc(t);
d: =(-sqr(ost)+5*ost+4)div 2;
str(d,a);
k: =a+k;
b: =b div 3;
end;
while length(k)do
begin
k: ='2'+k;
inc(t);
end;
if t< =2 then writeln(k);
end;
end.