Информатика, опубликовано 2018-08-22 22:20:45 by Гость
Помогите пожалуйста. Нужно составить программу, вычисляющую сумму чисел четырехзначного числа.
Ответ оставил Гость
Var x,z,sum:integer; i:byte;
begin
readln(x); sum:=0;
for i:=1 to 4 do begin
z:=x mod 10;
sum:=sum+z;
x:=x div 10;end;
writeln(sum);readln; end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.