C клавиатуры вводится трехзначное число. Нужно написать программу , вычисляющую сумму цифр числа : выполнить транссировку программы для числа 152 .
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.
Не нашли ответ?
Похожие вопросы