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

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.

Comments

какая задача?

---

Я же тебе написал для трех значного числа

---

Эта программа для нахождения суммы двух значного числа

---

Суммы цифр?

---

Тогда с:=a div 10; 

---

сумму цифр через цикл писать надо

---

сейчас

---

Нет, не через цикл, да сначала div

---

div100 mod10

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.