Сначала немного теории.
<span>--> - импликация,
следование
</span><span>Таблица истинности импликации</span>
<span>
x1 x2 r
0 0
1
0 1
1
1 0
0
1 1
1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0 0
0
0 1 0
1 0
0
1 1
1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая
буква имени согласная </span><span>
<span>1) Лариса </span>
<span>2) Сергей </span>
<span>3)
Геннадий </span>
<span>4)Елена
Теперь по вариантам:
1) Лариса
Получается (1--></span></span><span>0)^0=0^0=0,
не подходит
</span><span>2) Сергей
(1--></span><span>0)^1=0^1=0, не
подходит
3)</span><span> Геннадий
(1--></span><span>0)^1=0^1=0, не подходит
4) Елена</span>
(0--><span>1)^1=1^1=1, подходит
Ответ: 4) Елена</span>
var x,y:real; i:integer;
Begin
x := 1;
while(x < 50) do Begin
read(y);
x := x * y;
writeln(' Произведение = ', x);
inc(i);
End;
write('Введено ',i,' чисел');
End.
var
st:string;
i,a,pr:integer;
begin
<em>readln(st,a);</em>
pr:=1;
for i:=1 to 4 <em>do</em>
pr:=pr*(ord(st[i])-ord('0'));
<em>writeln(pr mod a=0);</em>
end.<span>
</span>
№1
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
