1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Begin randomize; S:=0; for i:=1 to N do begin m[i]:= random(201)-100; writeln(m[i]); end; for i:=1 to N do if m[i] mod 2 = 0 then S:=S+m[i]; writeln('Summa = ',S); readln; end.
2. Const N = 100; Var i,p:integer; B:array [1..N] of integer; Begin randomize; p:=0; for i:=1 to N do begin B[i]:= random(201)-100; writeln(B[i]); end; for i:=1 to N do if B[i] mod 3 = 0 then p:=p*B[i]; writeln('Proiz = ',p); readln; end.
Program HardZadacha; Var 1,2,3,4,5,6,7,8,9,0:array [0..5] of integer; a,i,x:integer; begin Writeln('Введите целое число : '); Read(a); for i:=1 to 5 do begin if a mod 10 =0 then 0[i]:=0[i]+1; if a mod 10 =1 then 1[i]:=1[i]+1; if a mod 10 =2 then 2[i]:=2[i]+1; if a mod 10 =3 then 3[i]:=3[i]+1; if a mod 10 =4 then 4[i]:=4[i]+1; if a mod 10 =5 then 5[i]:=5[i]+1; if a mod 10 =6 then 6[i]:=6[i]+1; if a mod 10 =7 then 7[i]:=7[i]+1; if a mod 10 =8 then 8[i]:=8[i]+1; if a mod 10 =9 then 9[i]:=9[i]+1; a:=a mod 10; end;
for i:=2 to 5 do begin if 0[i]+0[i-1]>1 then x:=1; if 1[i]+1[i-1]>1 then x:=1; if 2[i]+2[i-1]>1 then x:=1; if 3[i]+3[i-1]>1 then x:=1; if 4[i]+4[i-1]>1 then x:=1; if 5[i]+5[i-1]>1 then x:=1; if 6[i]+6[i-1]>1 then x:=1; if 7[i]+7[i-1]>1 then x:=1; if 8[i]+8[i-1]>1 then x:=1; if 9[i]+9[i-1]>1 then x:=1; end; if x=1 then writeln('Есть повторяющие цифры') else writeln('Нет повторяющихся цифр'); end.
это бан
Объяснение:
или хз невидно, попробуй впн подкл