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

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.

dasha00200100 · Answer

Var a, b: integer;beginreadln (a);b:=0;while a 0 do beginb:=b + a mod 10;a:= a mod 10;end;writeln (b);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.

Популярные вопросы