5. для какого из имён истинно высказывание: не((первая буква согласная) или (последняя буква 1) иван 2) семён 3) никита 4) михаил

Для ка­ко­го из приведённых имён ис­тин­но высказывание:

 

НЕ((Первая буква согласная) ИЛИ (Последняя буква гласная))? 

1) Иван

2) Семён

3) Ни­ки­та

4) Михаил

Пояснение.

Для того, чтобы вы­ска­зы­ва­ние было истинным, необходимо, чтобы вы­ра­же­ние в скоб­ках было ложным. Ло­ги­че­ское «ИЛИ» ложно, когда ложны оба высказывания. Следовательно, первая буква имени должна быть гласной, а последняя − согласной. Таким условиям удо­вле­тво­ря­ет толь­ко имя «Иван».

А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.