Зрителельная ,тактильная ,вкусовая,слуховая
<em><u>qBASIC:</u></em>
INPUT "x="; x
INPUT "y="; y
Sa = (x + y) / 2
Sb = SQR(x * y)
PRINT "Sa="; Sa, "Sb="; Sb
END
<em><u>Тестовое решение:</u></em>
x=? 3.6
y=? 2.8
Sa= 3.2 Sb= 3.174901
A)
F=a*(b+c)+a*b+a*c
F=a*(b+c+b+c)
F=a*(b+c)
б)
F=¬(¬a*b+a*(b+¬c))
F=¬(b*(¬a+a)+a*¬c)
F=¬(b+a*¬c)
F=¬b*¬(a*¬c)
F=¬b*(¬a+c)
в)
F=(¬(A+B)*¬A)→¬B
F=(¬A*¬B*¬A)→¬B
F=¬(A+B)→¬B
F=A+B+¬B
F=1
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1)</em>
begin
var (a,b):=ReadInteger2('Введите границы диапазона:');
var Всего:=b-a+1; // количество целых чисел в диапазоне
var Четных,Нечетных:integer;
if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.
<u>Пример</u>
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5
<em>2)</em>
begin
var (n,a,b):=ReadInteger3('Введите n,a,b:');
SeqRandom(n,a,b).Println
end.
<u>Пример</u>
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18