Дана строка, изображающая целое число. Вывести сумму цифр этого числа.

@KatrinZh · Регистрация: 04.12.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста написать программы на форме самым примитивным способом,заранее благодарю
1.Дана строка, изображающая целое число. Вывести сумму цифр этого числа.
2.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в*обратном порядке.

Комментарий модератора

Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.

@yomochka · 04.12.2011, 23:05

Delphi

var
  s : string;
  i : integer;
  sum : integer;
 
begin
  s := Edit1.Text;
  sum := 0;
  for i := 1 to Length(s) do
    sum := sum + StrToInt(s[i]);
  ShowMessage(IntToStr(sum));
end;

Delphi

var
  s : string;
  i : integer;
  s1 : string;
 
begin
  s := Edit1.Text;
  Delete(s, Pos(' ', s), 1);
  for i := Length(s) downto 1 do
    s1 := s1+s[i];
  ShowMessage(s1);
end;

@ShadowXX · 04.12.2011, 23:09

А , опередил...

@ShadowXX 0 / 0 / 0 Регистрация: 30.05.2011 Сообщений: 66
	04.12.2011, 23:09	3
	А , опередил... 0

Опции темы

Дана строка, изображающая целое число. Вывести сумму цифр этого числа.

Решение