Перевод из pascal в python uses crt; var a,b,c,d,i,s: integer; begin for i: =100 to 999 do begin a: =i div 100; b: =i mod 10; c: =i mod 100; d: =c div 10; s: =a+b+d; if (s mod 7=0) and (i mod 7=0) then write(i,' '); end; end.
Const n=15; var i,np,nn,amax:integer; a:array[1..n] of integer; begin Randomize; Write('Исходный массив: '); np:=0; nn:=0; for i:=1 to n do begin a[i]:=Random(51)-15; Write(a[i],' '); if a[i]>0 then Inc(np) else if a[i]<0 then Inc(nn); end; Writeln; if np/nn>2 then begin amax:=a[i]; for i:=2 to n do if a[i]>amax then amax:=a[i]; Write('Выходной массив: '); for i:=1 to n do begin if a[i]<0 then a[i]:=1 else if a[i]>0 then a[i]:=a[i]*amax; Write(a[i],' ') end; Writeln end else Writeln('В массив изменения не вносятся') end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
n=15;
var
i,np,nn,amax:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
np:=0; nn:=0;
for i:=1 to n do begin
a[i]:=Random(51)-15;
Write(a[i],' ');
if a[i]>0 then Inc(np)
else if a[i]<0 then Inc(nn);
end;
Writeln;
if np/nn>2 then begin
amax:=a[i];
for i:=2 to n do
if a[i]>amax then amax:=a[i];
Write('Выходной массив: ');
for i:=1 to n do begin
if a[i]<0 then a[i]:=1
else
if a[i]>0 then a[i]:=a[i]*amax;
Write(a[i],' ')
end;
Writeln
end
else Writeln('В массив изменения не вносятся')
end.
Пример работы программы
Исходный массив: 28 8 21 32 0 26 30 11 35 21 14 6 0 -4 -8
Выходной массив: 980 280 735 1120 0 910 1050 385 1225 735 490 210 0 1 1