Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа

@DogBox · Регистрация: 26.07.2013

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

нужна программа которая проверяет следующий факт: Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1

@Mazilo · 13.12.2015, 14:47

DogBox,

Pascal

Var n : string;
    S, D, k, i, code : integer;
begin
Writeln('Enter n');
Readln(n);
S:=0;
D:=0;
For i:=1 to length(n) do
    begin
    val(n[i], k, code);
    S:=S+k;
    D:=D*k;
    end;
If (s-d=1) then Writeln('Yes') else Writeln('No');
Readln;
end.

@DogBox · 13.12.2015, 16:51 **[ТС]**

сможешь его объяснить?

@Mazilo · 13.12.2015, 17:03

DogBox,

Pascal

Var n : string;
    S, D, k, i, code : integer;
begin
Writeln('Enter n');
Readln(n);//ввод числа, число считывается в формате строки
S:=0;//начальная установка для суммы
D:=1;//начальная установка для произведения
//цикл прохода по вводимому числу
For i:=1 to length(n) do
    begin
    val(n[i], k, code);//преобразовываем текущий элемент строки в цифру
    S:=S+k;//формируем сумму
    D:=D*k;//формируем произведение
    end;
If (s-d=1) then Writeln('Yes') else Writeln('No');
Readln;
end.

Там в первом варианте ошибка. Нужно

Pascal

D:=1;

Вместо

Pascal

D:=0;

Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа

Решение

Решение

@DogBox 0 / 0 / 0 Регистрация: 26.07.2013 Сообщений: 12
		1
	Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа 13.12.2015, 14:01. Показов 5637. Ответов 3 Метки нет (Все метки) нужна программа которая проверяет следующий факт: Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1 0

@DogBox 0 / 0 / 0 Регистрация: 26.07.2013 Сообщений: 12
	13.12.2015, 16:51 [ТС]	3
	сможешь его объяснить? 0

Опции темы