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

Question

Арнольд

13 февраля, 15:11

+3

Ответы (1)

Знаете ответ?

Мася · Answer 1

Begin

var a:integer; var i:integer; var q:integer;

readln (a) ;

for i:=1 to 3 do

begin

q: = q + copy (a, i, 1) ;

end;

writeln (q) ;

end.