Найти произведение цифр k значного числа

@-=MAXIMKA=- · Регистрация: 15.11.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста создать программу которая будет вычислять произведение цифр k значного числа

@Ruslanishe · 15.11.2010, 18:09

Pascal

uses crt;
var
a:array[1..10]of integer;
m,n,i,c:longint;
j,f,k,s:integer;
 
begin
writeln('ââåäèòå k-çíà÷íîå ÷èñëî');
readln(i);
begin
c:=i;
k:=0;
s:=1;
 
repeat
inc(k);
a[k]:=c mod 10;
s:=s*a[k];
c:=c div 10;
 
until c=0;
 writeln('âîò ïðîèçâåäåíèå = ',s);
 
  end;
readln;
end.

ну вот кажется получилось!

Добавлено через 47 секунд
только я чёта там в описании переменных много самих переменных написал)))нерасчитал)

@Puporev · 15.11.2010, 18:13

Массив-то для чего?

@Ruslanishe · 15.11.2010, 18:15

Сообщение от Puporev

Массив-то для чего?

да другую прогу переделывал забыл про var отредактируй(ну как редактируете тему например или прогу в паскаль код делаете)

Добавлено через 26 секунд
ну а так правильно?

@Artishok · 15.11.2010, 18:15

Pascal

var
  c, k: integer;
  pr: real;
 
begin
  pr := 1;
  writeln('введите k-значное число');
  readln(c);
  while (c > 0) do 
  begin
    k := c mod 10;
    pr := pr * k;
    c := c div 10;
  end;
  writeln(pr);
end.

@Ruslanishe · 15.11.2010, 18:18

и эта работает!!!

Добавлено через 1 минуту

Сообщение от Puporev

Массив-то для чего?

стоп а массив не для подчёта кол-ва чисел? или я путаю!

Добавлено через 24 секунды
кол-ва цифр точнее*

@Puporev · 15.11.2010, 18:20

Ruslanishe, А для чего их считать?
Кстати здесь переменная k тоже лишняя

Сообщение от Artishok

k := c mod 10;
* * pr := pr * k;

Pascal

1	pr:=pr*(c mod 10);

@Ruslanishe · 15.11.2010, 18:23

ну впринцепи можно и так!!!
ну всёже прога работает только много написал)

Добавлено через 1 минуту
кстати а как писать "не по теме" немогу никак найти!

@Artishok · 15.11.2010, 18:23

теги оff

@Ruslanishe · 15.11.2010, 18:24

Сообщение от Artishok

теги оff

спасиба!!!

@Puporev · 15.11.2010, 18:24

Не по теме:

Над окном сообщения в тулбаре OFF

@Ruslanishe · 15.11.2010, 18:28

Не по теме:

https://www.cyberforum.ru/pascal/thread191247.html#post1112489

ты посморел Puporev?

Добавлено через 2 минуты
получилось не по теме))

@-=MAXIMKA=- · 15.11.2010, 19:14 **[ТС]**

всем огромное спасибо. :dance3:

@Ruslanishe · 15.11.2010, 19:17

Тут есть кнопочка "+1 Спасибо")))

@-=MAXIMKA=- 0 / 0 / 0 Регистрация: 15.11.2010 Сообщений: 8
		1
	Найти произведение цифр k значного числа 15.11.2010, 17:54. Показов 2140. Ответов 13 Метки нет (Все метки) Помогите пожалуйста создать программу которая будет вычислять произведение цифр k значного числа 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	15.11.2010, 18:13	3
	Массив-то для чего? 0

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 18:15	4
	Сообщение от Puporev Массив-то для чего? да другую прогу переделывал забыл про var отредактируй(ну как редактируете тему например или прогу в паскаль код делаете) Добавлено через 26 секунд ну а так правильно? 0

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 18:18	6
	и эта работает!!! Добавлено через 1 минуту Сообщение от Puporev Массив-то для чего? стоп а массив не для подчёта кол-ва чисел? или я путаю! Добавлено через 24 секунды кол-ва цифр точнее* 0

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 18:23	8
	ну впринцепи можно и так!!! ну всёже прога работает только много написал) Добавлено через 1 минуту кстати а как писать "не по теме" немогу никак найти! 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	15.11.2010, 18:23	9
	теги оff 1

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 18:24	10
	Сообщение от Artishok теги оff спасиба!!! 0

@Puporev
	15.11.2010, 18:24 #11
	Не по теме: Над окном сообщения в тулбаре OFF 1

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 18:28	12
	Не по теме: https://www.cyberforum.ru/pascal/thread191247.html#post1112489 ты посморел Puporev? Добавлено через 2 минуты получилось не по теме)) 1

@-=MAXIMKA=- 0 / 0 / 0 Регистрация: 15.11.2010 Сообщений: 8
	15.11.2010, 19:14 [ТС]	13
	всем огромное спасибо. :dance3: 0

Опции темы

@Ruslanishe 25 / 9 / 4 Регистрация: 17.10.2010 Сообщений: 203
	15.11.2010, 19:17	14
	Тут есть кнопочка "+1 Спасибо"))) 0