Var
n, n1, n2, n3: integer;
begin
write('Введите трехзначное число: ');
readln(n);
if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа')
else
begin
n1 := n div 100;
n2 := n div 10 mod 10;
n3 := n mod 10;
writeln('1 - ', n3, n2, n1);
writeln('2 - ', n3, n1, n2);
writeln('3 - ', n2, n1, n3);
end;
end.
var
i, j, m: integer;
S, P: real;
begin
i := 1;
while((i <= (i + 3) * (i + 3)) and (i <= 100)) do
begin
P := 1;
for j := -5 to 15 do
begin
P := P * sin(i / sqrt(i * i + j * j));
end;
S := S + P;
writeln(i:5, ' - ', S:10:3);
i := i + 1;
end;
end.
вообще получается бесконечный цикл, потому пришлось ввести второе условие
B2.
71
B3.
8
B4.
2^2+2^3+2^4+2^5+2^6=124
B5.
k=32
Смотри в прикрепленном файле
<span>Коды программ можно увидеть, нажав Alt+F11</span><span>Ярлыки внизу соответствуют номеру заданий.</span>
На вход подаются три переменные - A,B,C.
В первый дизъюнктор подаются на вход A и B, получится: A+B
Результат дизъюнктора подается в инвертор: ¬(A+B)
В конъюнктор подаются на вход B и C, получится: B*C
Результат конъюнктора подается в инвертор: ¬(B*C)
В конце стоит дизъюнктор, в него подаются на вход ¬(A+B) и ¬(B*C), получим: ¬(A+B)+¬(B*C)
В итоге:
F=¬(A+B)+¬(B*C)
или в другом виде:
F=¬(A v B) v ¬(B ^ C)