Var s:string;l,k,p:integer;beginwrite('Введите текст');//s:='Проверочный текст для разделения на слова и мы';read(s);l := s.Length;p:=1;while p <= l do beginif s[p] = 'ы' then k:= k +1;p:=p +1;end;write(l,k);end.

0 0

4 года назад

Умоляю помогите! Заранее спасибо! Символы, находящиеся справа от курса, удаляют с помощью клавиш... А) Backspace Б) End В) Delet

Nurga

<span>Символы, находящиеся справа от курса, удаляют с помощью клавиши Delete</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Какие способы графической информации существует?

galinochka221090

Графики..................

0 0

4 года назад

Помогите,пожалуйста,написать программу в Паскале через циклы while и repeat. Номер 4.

Доминикана [11]

1)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
while abs(a0-a1)>=eps do
begin
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
end;
writeln(a1);
end.

2)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
repeat
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
until abs(a0-a1)<eps;
writeln(a1);
end.

Пример:
1.2 0.9
<span> 2.41185904021433E-006</span>

0 0

3 года назад