Данная программа написана для Pascal:
var s:string;
i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.
Var X,Y,Xm,Ym:real;
Procedure ABC();
Begin
Repeat
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x*x+y*y)>(Xm*Xm+Ym*Ym) then
Begin
Xm:=x;
Ym:=y
End
Until (X = 0)and(Y = 0)
End;
Begin
Xm:=0;
Ym:=0;
ABC;
WriteLn('(',Xm,',',Ym,')')
End.
13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а
<span>1. Аудиторией называется специально оборудованное помещение (в каком-либо университете, институте ит. д.) для чтения лекций и проведения учебных занятий.<span>Лекционная аудитория.</span></span><span>2. Аудиторией называются все те люди, которые пришли послушать лекцию, речь, выступление и т. п.<span><span>Ответить на вопросы аудитории.</span> | <span>Установить контакт с аудиторией.</span></span></span><span>3. Читательской, зрительской, слушательской аудиторией называют тех людей, которые читают книги,смотрят телевидение, слушают радио.</span>
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.