Информатика, опубликовано 2018-08-22 20:39:08 by Гость
Составьте программу вычисления суммы цифр трёхзначного числа а. значение а введите с клавиатуры.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.