Составить программу ,находящую кол-во и сумму цифр пяти данных целых чисел ,используя процедуру
Составить программу ,находящую кол-во и сумму цифр пяти данных целых чисел ,используя процедуру
Гость
Ответ(ы) на вопрос:
Гостьvar i,x,k,s:integer;
function Sum(x:integer):integer;
var
t:string;
i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;
function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;
begin
for i:=1 to 5 do
begin
write('Введите число ',i,': ');
readln(x);
k:=Kol(x);
s:=Sum(x);
writeln('Количество цифр ',k,'; сумма цифр ',s)
end
end.
Не нашли ответ?
Похожие вопросы