Помогите с заданием по , пожалуйста (15 баллов): Запишите на языке

Помогите с заданием по , пожалуйста (15 баллов): Запишите на языке Паскаль программку, которая для произвольного естественного ТРЁХЗНАЧНОГО(ИМЕНННО ТРЁХЗНАЧНОГО) числа определяет: сумму и творенье его цифр.

Задать свой вопрос
1 ответ
Var a,a1,a2,a3,s,p:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
s:=a1+a2+a3;
p:=a1*a2*a3;
writeln('s = ',s,' p = ',p);
end.

Пример:
a = 215
s = 8 p = 10
Илюха Сыпченко
Спасибо Для вас громадное!) Всегда подсобляете!
Илья Гарсатанянц
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт