Procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=StrToInt(Edit1.Text);
if (n mod 5 = 0) and (n mod 7 = 0) then
Edit2.Text:='Это верно, число делится на 5 и на 7'
else
Edit2.Text:='Число не делится на 5 и на 7';
end;
end.
Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности[1].
Согласно ГОСТ 27201-87 ПК применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не обладающих специальными знаниями в области вычислительной техники и программирования.
Изначально компьютер был создан как вычислительная машина, в качестве ПК он так же используется в других целях — как средство доступа в информационные сети и как платформа для компьютерных игр.
В восьмеричной=0203
В шестнадцатиричной=083
1/256 Мбайта = 32768 бит;
V сообщения = K * i;
32768 = 2048 * i;
i=32768/2048=16 бит;
По формуле: N=2^i находим N;
N=2^16 = 65536 символов.
Ответ: 65536 символов.
Const
N = 10;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
Write('Отсортированный массив: ');
For j:= 1 to N div 2 do
For i:= 1 to N div 2-1 do
if A[i]>A[i+1] then Swap(A[i],A[i+1]);
For j:= 1 to N div 2 do
For i:= N div 2 to N-1 do
if A[i]<A[i+1] then Swap(A[i],A[i+1]);
For i:= 1 to N do
Write(A[i],' ')
End.