Дано натуральное число n. вычислить произведение его цифр. на паскале.

210

443

Посмотреть ответы 3

Ответы на вопрос:

artyushin073

Информатика

4,8(39 оценок)

var

n,p: longint;

begin

p: =1;

write ('n = ');

readln(n);

while n < > 0 do

begin

p: =p*(n mod 10);

n: =n div 10;

end;

p: =p*n;

writeln ('proizvedenie: ',p);

readln;

end.

ilyakz,во-первых: идентификатор не может начинаться с цифры и во-вторых: неправильно организован цикл с предусловием,программа не будем считать произведение цифр,вы наверное его перепутали с циклом с постусловием

gimirunb

Информатика

4,8(95 оценок)

program 123;

var n,s,i: integer;

begin

writeln('введите число'); readln(n);

while n=0 do begin

s: =s*(n mod 10);

n: =n div 10;

end;

writeln('произведение цифр ',s);

end.

pipar93

Информатика

4,8(74 оценок)

Var s,a: integer; n: byte; begin s: =0; a: =1; for n: = 1 to 12 do begin s: =s+a; a: =a*2 end; writeln('сумма выплаты составит: ',s); end. результат работы программы: сумма выплаты составит: 4095