C клавиатуры вводится трехзначное число. Нужно написать программу , вычисляющую сумму цифр числа : выполнить транссировку программы для числа 152 .

спасибо )

for i:=1 to 3 do как эта операция называется

Цикл

Цикл со счётчиком

Beginvar a:integer;var i:integer;var q:integer;readln(a);for i:=1 to 3 dobegin  q:= q + copy(a,i,1);end;writeln(q);end.