*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Возраст<span> - период в физических. и психических. развитии человека</span>
Var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
Для 2-байтовой ячейки:
59 = 0000000000111011
-59= 1000000000111011 - прямой код
= 1111111111000100 - обратный код (инверсия)
= 1111111111000101 - дополнительный код (после прибавления единички)
30 = 0000000000011110
-30 = 1000000000011110 - прямой код
= 1111111111100001 - обратный код (инверсия)
= 1111111111100010 - дополнительный код (после прибавления единички)
*********************************
Расчеты смотри на фото
Тут не возможно ничего розшифровать потому что тут ничего не правильно