Вывести сумму цифр числа

@Katia777 · Регистрация: 03.05.2012

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

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

@NektaRR · 05.05.2012, 15:16

Pascal

uses crt;
var
   strok : string;
 
   i,k,v,fin,code : integer;
begin
   clrscr;
   write('Ââåäèòå ñòðîêó: ');
   readln(strok);
   fin:= 0;
   for i:=0 to Length(strok) do
       begin
          Val(strok[i],v,code);
          fin:= fin+v;
      end;
  writeln('Ðåçóëüòàò',fin);
 
  readln;
end.

@Katia777 · 05.05.2012, 15:38 **[ТС]**

спасибо)))

Обозначения fin и code это что?

Добавлено через 6 минут
всё, поняла, спасибо большое)))

@Katia777 0 / 0 / 0 Регистрация: 03.05.2012 Сообщений: 60
		1
	Вывести сумму цифр числа 05.05.2012, 14:53. Показов 1048. Ответов 2 Метки нет (Все метки) Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа. 0

@Katia777 0 / 0 / 0 Регистрация: 03.05.2012 Сообщений: 60
	05.05.2012, 15:38 [ТС]	3
	спасибо))) Обозначения fin и code это что? Добавлено через 6 минут всё, поняла, спасибо большое))) 0

Вывести сумму цифр числа

Решение