var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.
Ответ дал: Гость
8 битная кодировка => 1 символ занимает 8 бит.
2304*4 = 9216 символов на всех 4 страницах
9216*8 = 73728 бит занимают все страницы
73728/ 36.864 = 2 секунды
ответ: 2 секунды
Ответ дал: Гость
var i,s,k: integer;
begin
for i: =-4 to -15 do begin
inc(s,i); inc(k)
end;
write('ср арифм = ',s/k)
end.
Ответ дал: Гость
открой рисунок,там где отмечено красным,должны быть зайцы
Популярные вопросы