Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.
<span>
</span>
Для импликации(ложна только тогда, когда первое логическое значение истинно. а второе ложно; в остальных случаях истинна):
1→1=1
1→0=0
0→1=1
0→0=1
Для эквивалентности(истинна только тогда, когда оба выражения истинны или ложны):
0⇔0=1
1⇔0=0
0⇔1=0
1⇔1=1
маршрутов (1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3)
var m,b:integer;
s,c:real;
begin
writeln ('Введите количество повторений:');
read (m);
s:=0;
c:=sqrt(2);
for b:=1 to m do begin
s:=s+c;
c:=sqrt(c);
end;
writeln ('S=',s);
end.
Моря окружают материки. Море напоминает степь. Металл вытесняет дерево. Поспешность увеличивает страх. Серебро заменяет золото