Top.Mail.Ru
Ответы
Аватар пользователя
14лет
Изменено
Аватар пользователя
Аватар пользователя
Программирование
+1

Как записать это на паскале?? Дано трехзначное число.Найти сумму и произведение его цифр

По дате
По рейтингу
Аватар пользователя
Новичок
14лет

Можно сделать очень просто, введи каждую цифру данного трехзначного числа отдельно и совершай с ними все арифметические операции.
Uses Crt;
Var a,b,c,s,p:integer;
Begin
ClrScr;
writeln('Введи трехзначное число');
readln( a,b,c); {После ввода каждой цифры жми Enter}
s:=0; s:=a+b+c;
p:=1; p:=a*b*c;
writeln('Сумма цифр s= ',s:5, 'Произведение цифр p= ',p:7);
readkey
End.

Аватар пользователя
Знаток
9лет

а если не хитрить (не вводить число отдельными цифрами), то можно так
var a,x,y,s,o,z:integer;
begin;
writeln('Введите трёхзначное число');
readln(a);
x:=a mod 10;
a:=a div 10;
y:=a mod 10;
z:=a div 10;
s:=x+y+z;
o:=x*y*z;
writeln('Сумма цифр=',s, ' Произведение цифр=',o);
end.

Аватар пользователя
Мыслитель
14лет

может вот это натолкнет на какие то мысли [ссылка заблокирована по решению администрации проекта]