begin
writeln (pi:3:2);<span>
end.</span>
Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Поскольку рисунок - это передатчик информации приемником которой является зрение человека, то нельзя передать с помощью него такие виды информации как:
1. Звуковая
2. Осязательная(формы)
Var s:string; k,i:integer;
begin
write('Введите текст: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В заданном тексте буква а встречается ',k,' раз');
end.