Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
var
i,s: integer;
begin
s: =0;
for i: =2 to 5 do
s: =s+i*i;
writeln(s);
end.
для матрицы 8*8
код
00111111
01000001
10000001
00010001
00100001
11000001
объем 8 байт
для символьного 1 байт в ascii
2 байта в unicode
нельзя, ведь текст отсканирован а не скопирован!
Популярные вопросы