Program DZ;
var x : integer;
Begin
writeln("Ввели число");
if x = 13 then
begin
x := 55;
readln(x);
end;
else
writeln(x);
End;
end.
Ответ:
Объяснение:
дискета,SD ROM,DVD ROM,флеш память,Жесткий диск
var
x, y: real;
begin
readln(y);
if y >= 0 then x := sqr(y) - sqrt(y) else
x := 3 / y + y;
writeln(x);
end.
№1
37 = 100101
64 = 1000000
121= 1111001
307= 100110011
511 = 111111111
91 = 1011011
366 = 101101110
404 = 110010100
717 = 1011001101
1228 = 10011001100
№2
101010= 42
100100=36
11111= 31
101110= 46
1100011=99
1001010=74
1100010000=784
101110001=369
1000001=65
1011001=89