Сделайте блок схему по програм

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

write ('введите N:'); readln(n);

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка:PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

write ('введите N:'); readln(n);

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка:

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