Kealladba
4 год назад
Дано 3х значное число. Найти сумму и произведение всех чисел
ОТВЕТЫ
Эрнест
Oct 24, 2020
Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
end.
p.s.
a-трехзначное число
e-сумма чисел
x, y и z - первое, второе и третье число соственно.
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
end.
p.s.
a-трехзначное число
e-сумма чисел
x, y и z - первое, второе и третье число соственно.
449
Смежные вопросы:
