<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
Если надо быстро, можно так:
uses GraphABC;
begin
Draw(x->1/x)
end.
Их много, они отвечают за 1 и тоже действие. Эти коды можно посмотреть в интернете
В самолете нет стоп-крана
Зрительная зрение глаза
звуковая слух уши
вкусовыя всус язык
обонятельная обоняние нос
осязателная осязание кожа
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>