Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
Program n1;
var a,b,s,p: real;
begin
write ('Введите длину катета a: ');
readln(a);
write ('Введите длину катета b: ');
readln(b);
s:=a*b*0.5;
p:=a+b+sqrt(sqr(a)+sqr(b));
writeln('Периметр треугольника равен ',p,' Площадь треугольника равна ',s);
end.
Импликацию часто по-другому называют "Следование".
Т.е. из выражения a следует выражение b.
Основные правила импликации, где 0 - ложь, 1 - истина.
Импликация ложна тогда и только тогда, когда из истины следует ложь.
А теперь так, как когда-то объясняли мне:
1) 1->1 = 1
Из истины следует истина. То есть из истинного факта (а) следует (или же мы делаем) справедливый истинный вывод(b). Все в порядке. Справедливо. Получаем 1 (истину) после операции импикации.
2) 0->1 = 1
Из неправильного высказывания (a) мы делаем правильный вывод(b). С этим тоже все в порядке, множество научных открытий делалось по принципу "из ошибочного суждения - верная теория". Бывает. Справедливо. Получаем истину.
3) 0->0 = 1
Из ложного высказывания (a) - ложные "выводы"(b) , тоже все в порядке. Логично, что из одной "лжи", у нас вторая "ложь". Справедливо. Получаем иситну.
4) 1->0 = 0
Из истинного высказывания (a) получаем ложное высказывание (b). Т.е. мы взяли и переврали истину непонятно как. Нехорошо и не справедливо. Получаем ложь:(
Если остались вопросы, или вообще никак не помогла - в комментарии:)
.txt - Это формат текста, состоящего из любых символов.
.rtf - Это формат документов, внутри могут быть как текст, так и картинки.
1) 8гб это 8192 мб следовательно 8192:12= 682 фотографии
2)16384:320=48 клипов
3)5*30*70=10500 байт
4)256= 2^i=2^8следовательно i=8 битов
8*80*32=20480 битов
20480*2=40960 битов=5120 байт=5 килобайт
i - кол-во информации
^ - степень