//прога на Pascal type film = record name : string[20]; age : byte; end; var a: array of film; n, i: byte; begin write ('Введите кол-во фильмов: '); readln (n); setLength (a, n); for i:=0 to n-1 do begin write ('Введите название фильма ', i+1, ': '); readln (a[i].name); write ('Введите возрастное ограничение фильма ', i+1, ': '); readln (a[i].age); end; writeln ('Введите возраст зрителя: '); readln (n); writeln (''); for i:=0 to length (a)-1 do begin if n>a[i].age then write ('Этот зритель может ') else write ('Этот зритель не может '); writeln ('пойти на фильм "', a[i].name, '"'); end; end.
1) F=Av(¬A&B) По закону дистрибутивности раскроем скобки (Av¬A)&(AvB) Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB) По тому же закону раскрываем скобки (A&¬A)v(A&B) A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB) По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид A&(¬CvB) Можно раскрыть скобки, получим A&¬C v A&B
4) F =(1v(AvB))v((AC)&1) Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1 Получаем выражение 1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1 ответ 1
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
type
film = record
name : string[20];
age : byte;
end;
var
a: array of film;
n, i: byte;
begin
write ('Введите кол-во фильмов: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите название фильма ', i+1, ': ');
readln (a[i].name);
write ('Введите возрастное ограничение фильма ', i+1, ': ');
readln (a[i].age);
end;
writeln ('Введите возраст зрителя: ');
readln (n);
writeln ('');
for i:=0 to length (a)-1 do
begin
if n>a[i].age then write ('Этот зритель может ') else write ('Этот зритель не может ');
writeln ('пойти на фильм "', a[i].name, '"');
end;
end.