Определить количество абитуриентов, проживающих в городах, название которых начинается с буквы"в" Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить):
Ф.И.О. Оценки Местожительство Иванов А.Г. 9 7 5 Вологда Петров Л.Л 9 9 9 Грязовец Раковский Д.Г. 4 4 5 Сокол Акимова Я.С. 9 5 4 Харовск
Var n, cnt: integer; begin write('Введите число: '); read(n); repeat inc(cnt); n := n div 10; until n = 0; writeln('Количество цифр в числе: ', cnt); end.