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

Формулировка задачи:

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

Код к задаче: «Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа - Pascal ABC»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ