Question

Правильно или нет, подскажите как program ex; var a,b,c: integer; begin readln (a); b: =a mod 10; c: =a div 100; a: =b+c; writeln (a); end.

Answer 1

Program vav;

var a,b,c,x,s:integer;

begin

read(a);

x:=a;
s:=0;
while x<>0 do
 begin
   s:=s+(x mod 10);
   x:=x mod 10
 end;
write(s);end.

Answer 2

Var a, b: integer;
begin
readln (a);
b:=0;
while a>0 do begin
b:=b + a mod 10;
a:= a mod 10;
end;
writeln (b);
end.