Информатика, опубликовано 2018-08-22 23:30:00 by Гость

Составить Паскаль программу для произведения цифр заданного четырёх знасного числа.

Ответ оставил Гость

Var
pr, num: Integer;
begin
WriteLn(Введите число: );
ReadLn(num);
pr := 1;
while num > 0 do begin
pr := pr * (num mod 10);
num := num div 10;
end;
WriteLn(Произведение чисел = , pr);
ReadLn
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.