Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Формат 2003. Другой заблокирован сайтом
в ячейку B3 введите формулу =($A3*10+B$2)^2
1) Оперативная память
2)Процессор
3)Монитор
4)Аппаратное обеспечение (не уверен)
5)Двоичный код
Begin
Writeln('сердечко');
end.
Решение практически "дословное". Учитесь правильно излагать свои мысли и уж тем более чужие вопросы.