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

Question

Флена

20 января, 13:59

+1

Ответы (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.