Program spiski;
type
ListElement = ^TListElement;
TListElement = record
Data: integer;
Next, Previous: ListElement;
end;
var
first, current, last: ListElement;
i: integer;
procedure Delete(var element: ListElement);
var
x: ListElement;
begin
while element <> nil do
begin
if (element^.Data = 0) and (element^.Next <> nil) then begin
x := element^.Next; {следующий элемент который надо удалить}
{сшиваем дырку которая образуется после удаления х}
element^.Next := x^.Next;
if (x^.Next <> nil) then
x^.Next^.Previous := element;
Dispose(x);
end;
element := element^.Next;
end;
end;
procedure Print(first: ListElement);
begin
if first = nil then
begin
writeln('Список пуст.');
exit;
end;
while first <> nil do
begin
Write(first^.Data, ' ');
first := first^.Next
end;
writeln;
end;
begin
for i := 1 to 11 do
begin
if first = nil then
begin
new(first);
first^.Next := nil;
first^.Previous := nil;
last := first;
end
else
begin
new(last^.Next);
last^.Next^.Previous := last;
last := last^.Next;
last^.Next := nil;
end;
last^.Data := random(8 + 5) - 5;
end;
current := first;
Print(first);
Delete(current);
Print(first);
end.
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
1) Вычислить
11100101011(2)+1101111101(2)=101010101000(2)
1000001(2)-11111(2)=100010(2)
1437(8)+7465(8)=11124(8)
70000(8)-6453(8)=61325(8)
ABCDF(16)+98765(16)=144444(16)
F000001C(16)-AABBFF(16)=EF55441D(16)
2) Перевести число111111101001010010100011100 из 2-ичной системы счисления в 8-ичную и 16-ичную системы счисления
111 111 101 001 010 010 100 011 100(2) = 775122434(8)
111 1111 0100 1010 0101 0001 1100(2) = 7F4A51C(16)<span>
</span>
Виды информации по способу восприятия человеком: зрительная, слуховая, обонятельная, вкусовая, осязательная. Иллюстративный материал - фотка 1. Свойства информации (какой она должна быть): 1. Объективность; 2. Достоверность; 3. Полнота; 4. Актуальность; 5. Полезность; 6. Понятность. На схеме (фотка 2) все разжевано. Плюс фотка 3 - полная классификация информации по ее видам.