Занятие 4 - образец

1. Дано трехзначное число. Найти сумму его цифр.

Решение:

Program p1;
   Var x,x1,x2,x3,y:integer;
Begin
  Readln(x);
  x3:=x mod 10;
  x1:=x div 100;
  x2:=(x mod 100)div 10;
  y:=x1+x2+x3;
  Writeln(y)
End.