Разобрать небольшой код - Turbo Pascal

  1. Pascal1 2 3 4 5 var m,n,k,l:integer; begin read(m,n,k,l); write(m or n or k or l) end. Я вообще не понимаю, как это может работать.


textual

Код:

   00000000 00000001(bin) = 1(dec)
or 00000000 00000010(bin) = 2(dec)
or 00000000 00000100(bin) = 4(dec)
or 00000000 00001000(bin) = 8(dec)
=  00000000 00001111(bin) = 15(dec)


Похожие ответы
  1. Разобрать программу для расчета суммы бесконечного ряда, на pascal, помогите пожалуйста

  1. Создание четырех окон разного цвета, которые появляются по кругу с небольшой задержкой. В это время играет мелодия.

  1. Никак не могу понять как вычисляется данное выражение, не могли бы вы его разобрать для того чтобы я мог вникнуть:

  1. Нужно подпрограммами реализовать проверку корректности введенного числа (например, ‘123 b’ и ‘99 о’ – некорректны!). Помогите с этим моментом пожалуйста (если можно с объяснением). Сама программа ниже. Задание: с клавиатуры вводится целое число в одной из следующих систем счисления: двоичная, восьмеричная, десятичная. Отдельно соответствующей буквой (b, o, d) вводится обозначение исходной системы. В результате работы программа должна вывести значение введенного числа во всех перечисленных системах счисления. Пример: Введите число: 17 d Двоичное число: 10001 b Восьмеричное число: 21 o Десятичное число: 17 d Замечание: Массивы и строки в реализации использовать запрещается. Задача должна быть решена чисто вычислительным алгоритмом.

  1. Здравствуйте, требуется помощь в написании программы: Создать окно и ввести в него небольшой текст. Слова разделять пробелами. Организовать новое окно, в котором будет выводиться этот текст следующим образом: слова появляются друг за другом с интервалом 3 сек. В течении этих трех секунд звучит звуковой сигнал. Заранее спасибо за помощь.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 Program dz; type   mass = array [0..100] of real; Var   X:mass;Y:mass;S,L,z:Real;K1,K2:integer; procedure massiveone(var K:mass;size:integer;c:char); var   i:integer; begin   for i:=0 to size do     begin       write(c,'[',i,']=');        readln(K[i]);       end; end; procedure SumAndCountPLUS(var K:mass;size:integer;var S:real); Var i:integer; begin S:=0; for i:=0 to size do if K[i]>0 then begin S:=S+K[i]; end; end; procedure RazAndCountMINUS(var K:mass;size:integer; var L:integer); Var i:integer; begin L:=0; for i:=0 to size do if K[i]<0 then begin L:=L+1; end; end; begin   z:=0;   massiveone(X,9,'X');   massiveone(Y,7,'Y');   SumAndCountPLUS(X,9,S);   writeln('S=',S);   SumAndCountPLUS(X,9,K1);   writeln('K1=',K1);   RazAndCountMINUS(Y,7,L);   writeln('L=',L);   RazAndCountMINUS(Y,7,K2);   writeln('K2=',K2);   if (k1*k2=0) then writeln('Error "K1*K2" to the denominator')     else       begin       z:=(exp(S1)+exp(S2))/(k1*k2);       writeln('z=',z:8:3);       end; Readln(); end.

  1. Вложение 603133 Определить наименьшее из произведений Где-то ошибка: