var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Программа находится в фотографии
program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);
if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;
end.
1) выполняется & : 9&26; 9=1001 (2cc) 26=16+8+2=11010 (2cc)
11010 &
01001
------------
01000 - результат побитовой 9&26 (лог умножение)
2) 15=1111 (2cc)
1111 |
1000
---------------
1111 - результат первой | (ИЛИ - лог сложение)
3) 12=8+4=1100 (2сс)
1111 |
1100
-------------
1111 - результат второй |
4) 29=16+8+4+1=11101 (2cc)
11101 ^
01111
----------------- результат ^
10010 =2^4+2^1 =16+2=18 ответ 18