Var x, y: Integer;
begin
x := -3;
repeat
if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
if (x = 0) then writeln('При X = ', x, ' y = ', 0);
if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
x := x + 1;
until (x > 8);
<span>end.
Проверил =)</span>
Var
n:integer;
i,j,k:byte;
a:array[1..3] of byte;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
for i:=1 to 3 do
begin
a[i]:=n mod 10;
n:=n div 10
end;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if a[i]<>0 then Write(a[i],a[j],a[k],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное трехзначное число: 307
777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333
101110101=<span><span>373(10), 10111=23(10)
</span></span>Сумма 110001100(2)=<span>
396(10)</span>
В программе выполняются следующие действия:
- задаются значения всех элементов массива;
- задаётся начальное значение переменной m = 45
- в цикле for k = 4 to 10 ... элементы массива с номерами от 4 до 10 сравниваются с первым элементом (45) и если сравниваемый элемент <= 45, то это значение добавляется к m:
Таким образом, m = 45+15+20+35+10+45 = 170
Ответ: на экран будет выведено значение 170
F = ¬X +Z⇒(X+¬Y)
таблица истинности:
X Y Z X+¬Y Z⇒(X+¬Y) ¬X F
0 0 0 1 1 1 1
0 0 1 1 1 1 1
0 1 0 0 1 1 1
0 1 1 0 0 1 1
1 0 0 1 1 0 1
1 0 1 1 1 0 1
1 1 0 1 1 0 1
1 1 1 1 1 0 1
F =1 тождественно истинна ,
так как её значения равны 1 при любых X,Y,Z