Информатика, опубликовано 2018-08-22 22:25:06 by Гость
Найти сумму цифр четырёхзначного числа Паскаль
Ответ оставил Гость
Readln(x);
x1:=x div 1000;
x2:=(x-(x1*1000)) div 100;
x4:=x mod 10;
x3:=(x-x3-(x1*100)-(x2*100) div 10;
s:=x1+x2+x3+x4;
writeln(s);
readkey;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на