<u>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Матрица A ***');
var a:=MatrRandom(m,n,10,99); a.Println(3);
var b:=new integer[m,n];
var c:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do
(b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
Writeln('*** Матрица B ***'); b.Println(3);
Writeln('*** Матрица C ***'); c.Println(3);
Writeln(3*n*'-');
Writeln('Количество нулевых элементов в С: ',
c.ElementsByRow.Where(t->t=0).Count);
var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
Writeln('Сумма всех элементов матрицы B: ',sb);
Writeln('Сумма всех элементов матрицы C: ',sc);
if sb>sc then Writeln('Сумма элементов матрицы B больше')
else
if sc>sb then Writeln('Сумма элементов матрицы C больше')
else Writeln('Суммы элементов матриц B и С равны')
end.
Фаил-это блок информаций хронящися на запоминающем уст-ве компьютера.
Папка-это фаиловая система в которой хронятся некоторое кол-во фаилов.
Переход из Традиционного общества в постиндустриальное общество!
Var
x,d,s:longint;
begin
Writeln('Введите натуральное число: '); Read(x);
s:=0;
while x>0 do begin
d:=x mod 10;
if d mod 2=0 then s:=s+d*d;
x:=x div 10
end;
Writeln('Сумма квадратов четных цифр равна ',s)
end.
Пример
Введите натуральное число:
14702
Сумма квадратов четных цифр равна 20