Правильно или нет, подскажите как program ex; var a,b,c:integer; begin readln (a); b:=a mod 10; c:=a div 100; a:=b+c; writeln (a); end.
Правильно или нет, подскажите как
program ex;
var a,b,c:integer;
begin
readln (a);
b:=a mod 10;
c:=a div 100;
a:=b+c;
writeln (a);
end.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы