Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужна помощь (помогите пожалуйста)
нужна помощь
Дано натуральное число. Определить, сколько раз в нем встречается первая цифра.
1 | Автор: kas | 2012-03-22, 09:57   |  Репутация: [ + 0 ]
var
i,n,pervoe,kolichestvo,chislo:integer;
begin
kolichestvo:=0;
read(n);
read(pervoe);
for i:=2 to n do begin
read(chislo);
if chislo=pervoe then kolichestvo:=kolichestvo+1;end;
writeln(kolichestvo);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-03-22, 15:26   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужна помощь (помогите пожалуйста)
  • Страница 1 из 1
  • 1
Поиск: