Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??
4 строки (если считать верхнюю), 3 столбца
Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
25==11001
47=<span>101111
94=</span>1011110<span>
115=</span><span>1110011
203=</span>11001011<span>
458=</span><span>111001010</span>
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
