Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.