Составьте программу вычисления суммы цифр трёхзначного числа а. значение а введите с клавиатуры.
5-9 класс
|
Program summa_4isel;
Uses crt;
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.
Другие вопросы из категории
Привет, мне нужна помощь с заданием по информатике. С таблицей Pascal.
Написать программу для нахождения площади кольца, внешний радиус которого равен R1, а внутренний R2, (R1>R2). Протестировали программу для R1=5.6 , R2=3.8 . Проверить ответ на калькуляторе
Читайте также
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
или во втором сумма цифр этого числа будет равна 9.)