var
a:array [1..100] of integer;
i,n,k:integer;
f:boolean;
begin
write ('Razmer massiva (N<100): ');readln(n);
for i:=1 to n do begin
a[i]:=random(36)-10;
write (a[i],' ');
end;
writeln;
write ('Number: ');readln(k);
f:=false;
for i:=1 to n do
if a[i]=k then f:=true;
writeln (f);
readln;
end.
Выводит FALSE, если в масиве нет числа,иначе выводит TRUE.
<span>MSAccess - специальное назначение
HTML - системы программирования
"консультант Плюс" - не знаю такой программы
sound.drv - судя по названию это драйвер
basic - </span><span><span>системы программирования
</span>c+, Фортан ,паскаль </span><span><span>- системы программирования
</span>Linux - операционная система
FoxPro - наверно чтото профессиональное
MSWord, MSExcel - специального назначения
macromediaFlash </span>- професиональное
Социальная инженерия - это метод управления действиями человека без использования технических средств. Зачастую социальную инженерию рассматривают как незаконный метод получения информации, однако это не совсем так. Социальную инженерию можно также использовать и в законных целях - не только для получения информации, но и для совершения действий конкретным человеком. Сегодня социальную инженерию зачастую используют в интернете для получения закрытой информации, или информации, которая представляет большую ценность.
Ответ:
<em>Информация</em>- это сведения, которые человек получает в общении с природой и общество с помощью своих органов чувств.
Информация делится на виды :
<em>Биологические</em> (сигналы несут информацию от органов чувств к мозгу(органы чувств человека)
<em>Технические</em>(с помощью которых люди обмениваются информацией(компьютер, радио, телевидение))
<em>Криптография</em>-наука о методах обеспечения конфиденциальности (невозможности прочтения информации посторонним), целостности данных (невозможности незаметного изменения информации), аутентификации (проверки подлинности авторства или иных свойств объекта), а также невозможности отказа от авторства.
Шифрование-обратимое преобразование информации в целях скрытия от неавторизованных лиц, с предоставлением, в это же время, авторизованным пользователям доступа к ней
Uses
System;
var
d1, d2: DateTime;
s: string;
begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.
<u>Тестовое решение:</u>
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015
