<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Fib(var a,b:integer);
begin
(a,b):=(b,a+b)
end;
begin;
var (n,p,q):=(ReadInteger('n='),1,1);
var a:=ArrFill(n,1);
for var i:=3 to n do begin Fib(p,q); a[i-1]:=q end;
a.Println
end.
<u>Пример</u>
n= 13
1 1 2 3 5 8 13 21 34 55 89 144 233
(наименьшая цифра больше 3) И НЕ (число двузначное) <=>
<=> (наименьшая цифра больше 3) И (число не двузначное)
Вариант 1 не подходит по обоим условиям;
Вариант 3 не подходит по второму условию;
Вариант 4 не подходит по первому условию;
Вариант 2 удовлетворяет обоим условиям.
Ответ: 2.
uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.
Если у тебя знак ∨ то 1 будет во всех случаях в которых среди A и B есть хотя бы одна единица. Если же у тебя знак & то у тебя будет единица только в тех случаях когда и A и B равны единице