Const
x_max = 10;
x_min = -10;
x_step = 0.5;
var
x, y: real;
begin
x := x_min;
writeln('x':10, 'y':10);
repeat
writeln(x:10:2, (x - sin(x)):10:2);
x := x + x_step;
until x > x_max;
end.
Обозначу отрицание за корень
Отсюда высказывание ложно на полуинтервале [6; 7)
Из целых чисел подходит 6.
Ответ: [6; 7)
Этот суп рассольник
р с с л и н к а о ь
<u>1. Вот так это нужно решать по-современному</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
<u><em>Тестовое решение</em></u>
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
<u>2. А вот так учат решать в школе...</u>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
<u><em>Тестовое решение:</em></u>
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
var i, sum:integer;
n:string;
begin
readln(n);
for i:=1 to length(n) do begin
if StrToInt(n[i]) mod 4 <> 0 then
sum:=sum+StrToInt(n[i]);
end;
writeln(sum);
end.