лабораторная работа / вар12 / лаб7

Балаковский институт техники технологий и управления

Лабораторная работа №7

Вариант 12

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание. Посчитайте сумму всех цифр, встречающихся в строке.

Текст программы:

program stroka;

var str: string;

i,s: byte;

begin

read(str);

for i:=1 to length(str) do if (ord(str[i])>=48) and (ord(str[i])<=57) then begin

s

нет

да

n=1

:=s+ord(str[i])-48;

end;

writeln(s);

end.

s:=s+ord(str[i])-48

Рис.1 Блок–схема программы