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, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная
1) Лариса
2) Сергей
3) Геннадий
4)Елена
Теперь по вариантам:
1) Лариса
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена
1)
program pr;
uses crt;
Var y,x:real;
Begin
Writeln('vvedite x');
readln(x);
y:=(4*x)/(x-1);
Writeln('y=',y:10:3);
readln;
end.
2)
program pr;
Var n,i,a:integer;
Begin
Writeln('введите кол-во цыфр');
readln(n);
for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;
end.
2) использование массива
program pr;
uses crt;
Var n,i:integer;
a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);
Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');
end.
сори низнаю
Объяснение: