Информатика, опубликовано 2018-08-22 20:49:43 by Гость
Дано четырехзначное число. Найти: сумму его цифр.Написать программу на Pascalе
Ответ оставил Гость
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write(Vvedite N = );
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.