Program task; var x,i,sum:integer; begin readln(x); sum := 0; for i := 1 to 4 do begin sum := x mod 10 + sum; x := x div 10; end; writeln(sum); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
