Дана строка. Найти сумму записанных в строке чисел.
Ответы на вопрос
Ответил aynkova
0
var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
Новые вопросы
Математика,
2 года назад
Алгебра,
2 года назад
Геометрия,
10 лет назад
Алгебра,
10 лет назад
Биология,
10 лет назад