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

program z1;
var x, x1,x2,x3,s:integer;
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  readln(x);
  x1:=(x div 100);
  x2:=(x mod 100) div 10;
  x3:=(x mod 10);
  s:=x1+x2+x3;
  writeln(s);
end.
Последнее изменение: Суббота, 15 Август 2020, 02:35