var a,b,i,k:integer; begin k:=0; for i:= 1000 to 9999 do begin a:= i div 100; b:= i mod 100; if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1; end; writeln('Счастливых чисел: ',k); end.
Var b,c,n,i,r:integer; mass1:array[1..1000] of integer; mass2:array[1..1000] of integer; begin writeln('Введите кол-во элементов массива'); read(n); r:=1; for i:=1 to n do begin mass1[i]:=random(19)-10; if i mod 2=0 then begin mass2[r]:=mass1[i]; r:=r+1; end; end; for i:=1 to r do if mass2[r]>0 then c:=c+1 else b:=b+1; writeln('Исходный массив'); for i:=1 to n do write(mass1[i]:4); writeln; for i:=1 to r do write(mass2[i]:4); writeln; writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b); end.
var
a,b,i,k:integer;
begin
k:=0;
for i:= 1000 to 9999 do
begin
a:= i div 100;
b:= i mod 100;
if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1;
end;
writeln('Счастливых чисел: ',k);
end.