X = устал
Y = голоден
Z = могу заниматься
(X || Y) -> !Z
X = сдаст экзамен
Y = выучил материал
Z = поможет друг
X -> (Y || Z)
X = будет дождь
Y = будет тепло
Z = идти купаться
F = идти загорать
(X & Y) -> (Z || F)
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var a:=SeqGen(8,1.0,i->i*0.5).ToArray; // 1 и 2
a.Println(NewLine); // вывод
Writeln('Меньших 0.1: ',a.Count(x->x<0.1)); // 3
for var i:=0 to 3 do Swap(a[i],a[7-i]); // 4
a.Println(NewLine); // вывод
end.
<u><em>Тестовое решение:</em></u>
1
0.5
0.25
0.125
0.0625
0.03125
0.015625
0.0078125
Меньших 0.1: 4
0.0078125
0.015625
0.03125
0.0625
0.125
0.25
0.5
1
5
program IfElse;
var
x, y: real;
begin
writeln (x,y);
read (x,y);
if x<=2
then y:=sqr(x)+4*x+5
else y:=cos(x)/(sqr(x)+4*x+5);
writeln ('y=', y);
readln;
end;
6
program IfElse;
var
x, y: real;
begin
writeln (x,y);
read (x,y);
if x<=0
then y:=0;
else if (x>0 and x<=1)
then y:=2*x*sin(x)
else y:=sqr(sqr(x));
writeln ('y=', y);
readln;
end;
Const p1=10; p2=10;
var p:real;
begin
p:=100-(100+p1)*(100-p2)/100;
if p>0
then writeln('Товар подешевел на ',p:3:1,'%')
else writeln('Товар подорожал на ',-p:3:1,'%');
end.
Результат:
<span>Товар подешевел на 1.0%</span>
ничего не видно фото размазано