<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,3,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('min=',s.Min,', max=',s.Max)
end.
<u>Пример</u>
*** Исходная матрица ***
-10 -10 -9
-8 -2 -2
-1 -2 -5
-6 6 -5
------------
min=-10, max=6
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
А)M mod 2 = 0
Т.к. остаток деления четного числа на 2 должен равняться 0
Нажимаешь пуск, все программы, ищешь папку Майкрософт офис там будет.
помогла ставь спасибо!
<span>Var
a,i,n,s:integer;
function q (a:integer):integer;
var h,n:integer;
begin
n:=a;
h:=0;
q:=0;
while n>0 do
begin
n:=n div 10;
h:=h+1;
end;
if h = 5 then
begin
n:=a div 10000;
if n=3 then
if a mod 2 = 0 then
q:=1;
end ;
end;
begin
readln(a);
i:=a;
while q(i)<>1 do
begin
writeln('Error');
readln(a);
i:=a;
q(i);
end;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);</span><span> end.</span>