Найти произведение цифр заданного целого числа. решить в паскале. пишу вот такую команду но пишет ошибку. p : = 1; {здесь будет произведение} while n > 0 do begin p : = p * (n mod 10); n : = n div 10; end;
user666triplesix
2
20.05.2019 12:10
1
Другие вопросы по теме Информатика
lisena123409
20.06.2019 05:10
Bogdan1500
26.07.2019 01:30
89286666666
26.07.2019 01:30
mzhenyak1999
26.07.2019 01:30
kIRICH228227
27.05.2019 05:20
aynurqulieva
27.05.2019 05:20
9305153
27.05.2019 05:20
kuanyshbek2003
12.09.2019 19:39
arturlatipov
12.09.2019 19:39
Популярные вопросы
- Используя определение квадратного корня, реши уравнение √ x − 1 = 17 ....
2 - Составьте рассказ о достоинствах вашего любимого животного любого животного надо...
2 - 9a во 2 степени-9 разложите на множотели...
2 - От куска проволоки длиной а метров первый раз отрезали 2 метров а во второй раз...
3 - Вечером после наступления темноты 50 гномов выходя включать 50 фонарей, на каждом...
1 - Akito morita japan developed the first personal stereo sony walkman сделать пассивный...
2 - Напиши все трёхзначные числа, в записи которых используются только цифры 9 и 1....
3 - Как городничий городом ? комедия ревизор ,н.в.гоголь...
2 - Воранжерее растут розы астры и тюльпаны.из них 1/6 составляют розы а 3/5 остатка...
2 - Какой материк раскололся на две части...
3
program aaa;
var a,b,d:integer;
begin
read(a);
d:=1;
while a> 0 do begin
b:=a mod 10;
a:=a div 10;
d:=d*b;
end;
writeln(d);
end.