Дано вещественное число с двумя цифрами после запятой. Найти сумму цифр этого числа — Pascal(Паскаль)

program gd;

var
  r: real;
  i, sum, err, v: integer;
  s: string;

begin
  write('Vvediti rechovinne chislo: '); { выводим фразу на экран }
  readln(r); { считываем число с клавиатуры }
  str(r, s); { число преобразовываем в строку }
  sum := 0;
  for i := 1 to length(s) do { циклом с начала и до конца строки }
    if s[i] <> '.' then
    begin { не учитывая точки в этом числе }
      val(s[i], v, err);
      { преобразовываем текущую ЦИФРУ с строкового типа в ЦЕЛочисленный (integer) }
      sum := sum + v;
    end; { текущую ЦИФРУ добавляем к Имеющейся сумме }

  writeln('Summa= ', sum); { выводим результат суммы на экран }
  readln;

end.

Leave a Comment

+ 57 = 59