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

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

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

Вариант 6

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

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

Задание. Выведите на экран все цифры встречающиеся в строке.

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

program stroka;

var str:string;

i:integer;

begin

writeln('Введите строчку');

readln(str);

for i:=1 to length(str) do

if (ord(str[i])>=48) and (ord(str[i])<=57)

then writeln(str[i])

end.

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