program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write ('введите инверсию p-'); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write ('ламп горит -', s); readlnend.
Ответ дал: Гость
2 var 3 s: string; 4 begin 5 readln(s); 6 while pos('с',s)> 0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно
Ответ дал: Гость
1)
var
a: array [1..5,1..10] of integer;
i,j,p: integer;
begin
for i: =1 to 5 do
begin
for j: =1 to 10 do
begin
a[i,j]: =random(50)+1;
write(a[i,j]: 3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j: =1 to 10 do
begin
p: =a[1,j];
a[1,j]: =a[5,j];
a[5,j]: =p;
end;
for i: =1 to 5 do
begin
for j: =1 to 10 do
write(a[i,j]: 3);
writeln;
end;
end.
2)
var a: array [1..5, 1..10] of integer; i, j: integer; p: real;
begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.
Популярные вопросы