Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
<span> end.</span>

0 0

4 года назад

Как можно классифицировать программные продукты?

Dima-736 [6]

Программные продукты можно классифицировать по различным признакам. Основным признаком, по которому классифицируют все программные продукты, является сфера (область) их использования. Поэтому различают следующие классы программных продуктов:

0 0

4 года назад

Любое целое число можно рассматривать как вещественное но с нулевой дробной частью обоснуйте целесообразность наличия особых спо

Leo555 [51]

Операции с целыми числами занимают меньше времени, что повышает эффективность программы, также на запись целых чисел требуется меньше места.

0 0

4 года назад