За это 53 ! сделайте программу вычисляющую сумму и произведение цифр шестизначного числа. программа вводит одно число, выводит два числа в разных строках: в первой сумма цифр, во второй произведение. ответ предоставить в виде файла с расширением pas, который содержит текст программы.

hvbdnnd hvbdnnd    3   18.06.2019 01:00    0

Ответы
Perestroika Perestroika  14.07.2020 20:42
Program gt;
var s,p,n,q:integer;
begin
readln(n);
s:=0;p:=1;
while(n>0)do
begin
q:=n mod 10;
s:=s+q;
p:=p*q;
n:=n div 10;
end;
writeln(s,' ',p);
end.
Сохрани программу в расширении pas и всё
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика