3. перевести на язык логики следующие высказывания: а) необходимое и достаточное условие для жизни растений состоит в наличии питательной почвы, чистого воздуха и солнечного света. б) если "торпедо" или "динамо" проиграют, а "локомотив" выиграет, то "спартак" потеряет 1-ое место. в) если животное млекопитающее и имеет острые зубы и клыки и не ест траву, то это хищник. г) если рабочие или администрация упорствуют, то забастовка будет урегулирована тогда и только тогда, когда правительство добьется судебного запрещения, но войска не будут посланы на завод.

А) (п ^ в ^ с)->ж
б)(т(отр.) v д(отр.)^ л)->л(отр)
-> если что, это стрелка

. bmp – растровый рисунок, созданный в Paint

. jpg . gif – более совершенные растровые граф.

форматы. Рис. в формате gif может быть

анимированным и прозрачным)

. cdr – векторный файл

.mpg3 – звуковой файл

.mpg 4, wma, awi – видео файл

.rar, .zip- Архивные файлы

По расширению Windows определяет картинку(пиктограмму) для отображения файла и программу

для его открытия. Поэтому расширение нельзя стирать или изменять.

Существует много различных значков для отображения файлов и папок. Каждому типу файлов на

компьютере соответствует 1 значок, что позволяет легко узнать тип файла. Традиционные значки

можно изменять, но лучше этого не делать – это затруднит поиск информации на компьютере. Также

следует помнить что «традиционные» значки немного изменяются в каждой следующей версии

операционной системы.

Объяснение:

1)
var 
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do 
If (a[i] > -1) then write(a[i]:2);
End.
2)
var 
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do 
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do 
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов') 
else writeln('Больше min элементов');
End.
3)
var 
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin     read(a[i]);
if (a[i] = x ) then inc(k);
end;  
writeln('kol = ',k) ;
end.