Var A:longint; S:integer; Begin Write('Введите целое число: ');Read(A); S:=0; A:=Abs(A); Repeat S:=S+A mod 10; A:=A div 10; Until A = 0; Write('Сумма цифр числа: ',S); End.
1) there are 4 rooms in this house. (подставите количество сами, т.к. не вижу в каком 2)there are 2 bedrooms in this house. 3) there in his living (аналогично на остальные вопросы), т.к. не видно картинки, чтобы вам перечислить,что в зале, в обеденной комнате, ванне, спальне и ученическом столе).
A:longint;
S:integer;
Begin
Write('Введите целое число: ');Read(A);
S:=0;
A:=Abs(A);
Repeat
S:=S+A mod 10;
A:=A div 10;
Until A = 0;
Write('Сумма цифр числа: ',S);
End.