Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
//Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172
Var ma:array of array of integer; i,j,r,n,m,s:integer; begin randomize; readln(n); readln(m); setlength(ma,n); for i:=0 to n-1 do setlength(ma[i],m); writeln('Matrix:'); for i:=0 to n-1 do begin writeln; for j:=0 to m-1 do begin ma[i,j]:=random(50); write(ma[i,j]:4); end; end; writeln; writeln('Res:'); for i:=0 to n-1 do begin for j:=0 to m-1 do s:=s+ma[i,j]; writeln(i+1,' ',s); s:=0; end; end.
