Var
A:longint;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
Write('Произведение нечётных цифр = ',(A div 10000)*((A div 100) mod 10)*(A mod 10))
End.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
Var
a:array[1..12]of integer;
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
if a[5]<a[10] then
begin
a[5]:=a[5]*2;
a[10]:=a[10]*2;
end
else
begin
a[5]:=0;
a[10]:=0;
end;
writeln('Преобразованный массив:');
for i:=1 to 12 do write(a[i]:4);
<span>end. </span>