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 di...
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.
Надо сделать чтобы считало произведение .
задача такова.Дано число,найти произведение цифр стоящих на четных местах.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы