begin b := 1; readln(a); writeln((a mod 2 = 0 ? ' Ч' : 'Не ч') + 'ётное'); for i := 0 to 3 do b *= a mod round(power(10, i + 1)) div round(power(10, i)); writeln(b); end.
Var ar:array of array of integer; n1,k,i,n2,j:integer; b:boolean; begin; readln(n1); readln(n2); inc(n1); inc(n2); k:=1; setlength(ar,n1+1); while k<>n1 do begin; setlength(ar[k],n2+1); inc(k); end; b:=false; k:=0; i:=1; j:=1; writeln('Matrix:'); while i<>n1 do begin; writeln; while j<>n2 do begin; ar[i,j]:=random(100)-50; write(ar[i,j]:4); inc(j); end; j:=1; inc(i); end; i:=1; j:=1; while i<>n1 do begin; while j<>n2 do begin; if ar[i,j]<0 then b:=true; inc(j); end; if b=false then begin; writeln; writeln(i); exit; end; b:=false; inc(i); j:=1; end; writeln; writeln('Все'); end.
a, b: word;
i: byte;
begin
b := 1;
readln(a);
writeln((a mod 2 = 0 ? ' Ч' : 'Не ч') + 'ётное');
for i := 0 to 3 do
b *= a mod round(power(10, i + 1)) div round(power(10, i));
writeln(b);
end.