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

202

330

Посмотреть ответы 2

Ответы на вопрос:

vikarudenko1998

Информатика

4,4(10 оценок)

Var n, a, b, c, d, s, p: integer; begin write('введите натуральное четырехзначное число: '); readln(n); if (n > 9999) or (n < 1000) then writeln('число должно быть четырехзначным') else begin a : = n div 1000; d : = n mod 10; n : = (n div 10) mod 100; b : = n div 10; c : = n mod 10; s : = a + b + c + d; p : = a * b * c * d; writeln('сумма цифр равна ', s, ', а их произведение равно ', p) end end. тестовое решение: введите натуральное четырехзначное число: 2345 сумма цифр равна 14, а их произведение равно 120