Question

Uses crt; var n,s,s1,s2,k:integer; begin writeln('Введите число: '); readln(n); s:=0; s1:=0; s2:=0; while n>0 do begin inc(k); if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end; if k mod 2 = 0 then s2:=s1 else s2:=s; end; writeln('symma=',s2); end. Надо сделать чтобы считало произведение . задача такова.Дано число,найти произведение цифр стоящих на четных местах.

Answer 1

Uses crt;
var
n,p:integer;
begin
writeln('Введите число: ');
readln(n);
p:=1;
while n>=10 do begin
p:=p*(n mod 100 div 10);
n:=n div 100;
end;
writeln('p = ',p);
end.

Пример:
Введите число: 
236584
p = 96

Answer 2

Чтобы изменить программу, чтобы она находила произведение цифр, стоящих на четных местах, необходимо внести следующие изменения:

1. Изменить переменную s на переменную p и присвоить ей начальное значение 1, так как мы собираемся находить произведение, а не сумму.

2. Изменить вычисление переменной s1 так, чтобы она суммировала цифры, стоящие на нечетных местах, а не на четных, как в оригинальной программе.

3. Изменить условие проверки на четность внутри цикла. Теперь нам нужно умножать цифры только на четных местах, поэтому мы должны умножать каждую цифру, когда k mod 2 = 0.

Измененный код программы будет выглядеть следующим образом:

arduinoCopy code
uses crt;
var 
  n,p,s1,s2,k:integer; 
begin 
  writeln('Введите число: '); 
  readln(n); 
  s1:=0; 
  s2:=0; 
  p:=1;
  k:=0;
  while n > 0 do 
  begin 
    inc(k); 
    if k mod 2 = 0 then 
    begin 
      p := p * (n mod 10);
      n:=n div 10; 
    end 
    else 
    begin 
      s1:=s1+n mod 10; 
      n:=n div 10; 
    end; 
  end; 
  s2 := p;
  writeln('Произведение цифр, стоящих на четных местах: ', s2); 
end.

Теперь программа будет находить произведение цифр, стоящих на четных местах в введенном числе.