Предмет: Информатика,
автор: mishakisdog
Запишите на языке Паскаль программу решения задачи условие дано целое трехзначное число Составьте программу которая вычисляет сумму цифр этого числа
Ответы
Автор ответа:
0
Ответ:
Var sum, a, a1, a2, a3:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
a1:=a div 100 ;
a2:=(a div 10) mod 10 ;
a3:=a mod 10;
sum:=a1+a2+a3;
Writeln(sum);
End.
Похожие вопросы
Предмет: Русский язык,
автор: artemkas
Предмет: Другие предметы,
автор: Януля1
Предмет: Русский язык,
автор: всемилюбимая
Предмет: Математика,
автор: самирабдуллаев05