Меню сайта

Задача №1

Сколькораз встречается цифра К в натуральном М.

uses crt-

var m:string[79]-

k:string[79]-

number,i:integer-

— — — position:byte-

procedure Search-

begin

— Position:=pos(k,m)-

IFposition&lt-&gt-0 then number := number + 1-

end-

begin-

clrscr-

writeln(‘Введите натуральное число M’)-

readln(m)-

writeln(‘Введите число k (так, чтобы 0&lt-=k&lt-=9)’)-

readln(k)-

clrscr-

search-

writeln(‘В числе ‘, m, ‘ число ‘, k, ‘ встречается ‘,number, ‘ раз’)-

end.

Категория: Общие | Дата: 29.12.12

Меню раздела
Блок