Написать программу на Pascal,которая на вход получает любое натуральное целое число. На выходе программа сообщает сумму всех цифр и произведение всех нечётных цифр числа. Гарантируется, что в числе есть и чётные и нечётные цифры.
More Questions From This User See All
Answers & Comments
Ответ:
Не совсем верно, но очень близко.
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=k+1;
if k=1 then write('В массиве только 2 одинаковых элемента')
else write('В массиве не 2 одинаковых элемента');
readln
end.
Объяснение:
##
var n: BigInteger;
while True do
begin
var s := ReadString('Введи число:');
if BigInteger.TryParse(s, n) then
break
else
Println('Неверный ввод, повторите')
end;
n := Abs(n);
var (s, p) := (0bi, 1bi);
while n > 0 do
begin
var d := n mod 10;
s += d;
if d mod 2 <> 0 then p *= d;
n := n div 10
end;
Print(s, p)