Дистанционная подготовка: Есть программа быстрее?? А?? (32 строки)
Есть программа быстрее?? А?? (32 строки)
от Даниил Рагутский - Вторник 7 Май 2019, 11:41
112365. Подсчёт по сумме цифр в матрице
  program qq;
var n,m,k,r,c,c2,q,sum,count:integer;
arr:array[,] of integer;
begin
count:=0;
readln(n,m);
setlength(arr,n,m);
for var i:=0 to n-1 do begin;
for var j:=0 to m-1 do begin;
read(arr[i,j]);
end;
end;
readln(k,r);
for var i:=0 to n-1 do begin
for var j:=0 to m-1 do begin
c:=arr[i,j];
c2:=arr[i,j];
q:=0;
while c>0 do begin
c:=c div 10;
q+=1;
end;
sum:=0;
while c2>0 do begin
sum+=c2 mod 10;
c2:=c2 div 10;
end;
if(sum mod r=0) and (q=k) then count+=1;
end;
end;
writeln(count);
end.