Предмет: Информатика,
автор: hqqqj
составьте программу которая подсчитывает сумму и произведение цифр введеного трехзначного числа
составить алгоритм в паскале!
Ответы
Автор ответа:
1
Ответ:
program z;
var a,c1,c2,c3,s,p:integer;
begin
read(a);
c1:=a div 100;
c2:=a div 10 mod 10;
c3:=a mod 10;
s:=c1+c2+c3;
p:=c1*c2*c3;
write(s,' ',p)
end.
hqqqj:
можете помочь с еще одной задачей?
var a:integer;
begin
read(a);
a:=a mod 10 * 1000+ a mod 1000 div 10 * 10 + a div 1000;
write(a)
end.
Похожие вопросы
Предмет: Русский язык,
автор: katyakot4
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: ajoyan2017
Предмет: Физика,
автор: elvina55678RTYU
Предмет: Химия,
автор: olesechka2004