Высказывании (Y+1 > X) ∧ (Y+X <0) ∧ (X>1) истинно, если истинен каждый из трех предикатов.
1) X = 0,5; Y = -1,1
Y+1 > X; -1.1+1 > 0.5; -0.1 > 0.5 ложно и данный набор значений не подходит.
2) X = 1,1; Y = -4
Y+1 > X; -4+1 > 1.1; -3 > 1 ложно и данный набор значений не подходит.
3) X = -1; Y = -4
Y+1 > X; -4+1 > -1; -3 > -1 ложно и данный набор значений не подходит.
4) X = -0,1; Y = -1,1
Y+1 > X; -1.1+1 > -0.1; 0-.1 > -0.1 ложно и данный набор значений не подходит.
Ответ: все четыре варианта не подходят.
Var
i:integer;
begin
for i:=1 to 8 do
if i mod 2 <>0 then
writeln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);
<span>end.</span>
<span>мини-сочинение (половина страницы или одна страница) на одну из тем :1-Какой способ создания текста-компьютерный или рукописный-вамнравится больше? 2-Одно из значений слова "редактор"-лицо,исправляющее рукопись.Объясните ,почему компьютерные программы для создания текстов назвали текстовыми Редакторами?</span><span>
</span>
Program N_1;
var a,b:integer;
begin
b:=0;
begin
for a:=10 to 40 do
if a mod 5 = 0 then
b:=b+1;
end;
writeln('Количество чисел, кратных 5 -', b)
end.
Программа использует "a" , как счетчик от 10 до 40, а "b" , как количество чисел, если число делится на пять без остатка, то количество чисел +1,
Ответ программы: 7 чисел
3F(в 16)=3×16+15=63( в 10)