В Паскале стандартная процедура <em>delete(S,l,k)</em>
удаляет в строке S с l-ой позиции k символов
Вроде бы так... подправь если что)
uses crt;
const N=10;
var i,p:integer; a:array[1..N] of integer; {кол эл массива }
begin
p:=0;
writeln('введите исходный массив');
for i:=1 to N do {цикл по кол э}
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if (a[i] mod 2)=0 then p:=p+1;
end;
write('p='); writeln(p);
readln
end.
В кодировке ASCII для кодирования одного символа используется 8 бит = 1 байт. В приведенном сообщении 23 символа (с учетом пробелов и точек) ⇒ объем памяти для хранения сообщения = 23 байта.
<em><u>Пусть начальное двузначное число равно X. Тогда полученное трехзначное число будет равно 200 + X. Зная, что полученное число в 9 раз больше, составим и решим уравнение:</u></em>
<em>200 + X = 9 * X</em>
<em>8 * X = 200</em>
<em>X = 25</em>
<u>Ответ: 25</u>
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>