Логические высказывания и выражения Высказывание, которое нельзя уменьшить или разделить без потери смысла называется... *
1Сложное логическое высказывание
2Логическая операция
3Простое логическое высказывание
4Простое логическое выражение
Какой раздел науки рассматривает истинность или ложность высказываний, не вдаваясь в содержание? *
1Математика содержания
2Геометрия высказываний
3Алгебра логики
Высказывательная информатика
Логические высказывания, соединенные логическими операциями, называют... *
Логические схемы
Логические выражения
Нелогические выражения
Логические операции
Какие значение может принимать логическая переменная? *
Ложь
Только отрицательное
Истина
Только положительное
Любое значение
Несколько простых и соединенных логическими связками высказываний, которые соответствуют логическим операциям, называют... *
Сложные высказывания
Логические высказывания
Математические высказывания
Простые высказывания
Укажите выказывания, имеющие значение "ложь" *
Дважды два - четыре
Созревшие арбузы имеют синий цвет
При нормальных условиях температура закипания воды составляет 200 градусов
У Азиза день рождения 31 февраля
Укажите выказывания, имеющие значение "истина" *
Солнце - это звезда
Квадрат гипотенузы прямоугольного треугольника равен сумме кубов его катетов
Бишкек - столица Кыргызстана
Оперативная память компьютера служит для долговременного хранения информации
Что из перечисленного является логическим высказыванием? *
Какого цвета платье на кукле?
Информатика — интересный предмет
В арабской системе счисления 10 цифр
Билл Гейтс - известный футболист сборной команды Бразилии
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.