должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит
function Pow(a, x:integer):integer;var rez, i:integer;begin rez := 1; for i := 1 to x do rez := rez * a; Pow := rez;end;function BinToDec(a:string):integer;vari ,r:integer;begin r := 0; for i := length(a) downto 1 do r := r + StrToInt(a[i]) * Pow(2, length(a) - i); BinToDec := r;end;var s:array[1..100] of string; i:integer;begin s[1] := '11001101'; s[2] := '11100101'; s[3] := '11110010'; s[4] := '00100000'; s[5] := '11110101'; s[6] := '11110011'; s[7] := '11100100'; s[8] := '11100000'; s[9] := '00100000'; s[10] := '11100001'; s[11] := '1110010'; s[12] := '11100111'; s[13] := '00100000'; s[14] := '11101110'; s[15] := '11100001'; s[16] := '11110000'; s[17] := '11100000'; s[18] := '00101110'; for i := 1 to 18 do write(chr(BinToDec(s[i])));end.
УВ 1:
Вначале у тебя а -5, а б-6.
Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.
И последнее: д=а+б=5+6=11
ответ:11
УВ 2:
А=3, б=2.1
Б<а? Да, меньше, т.к. 2.1 меньше 3
Значит выполним действие: напечатаем б, т.е.2.1
Затем в обязательном порядке напечатаем а, т.е.3
В итоге на экране напечатано будет:2.13
Ув3:
А,б,ц равны 3,4,5 соответственно
А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.
Иначе напечатолось бы сумма 3,4,5, т.е. 12
Ув4:
М=2
М >2?
Нет, не больше, значит м=м*м, т.е. 4
должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
function BinToDec(a:string):integer;
var
i ,r:integer;
begin
r := 0;
for i := length(a) downto 1 do
r := r + StrToInt(a[i]) * Pow(2, length(a) - i);
BinToDec := r;
end;
var
s:array[1..100] of string;
i:integer;
begin
s[1] := '11001101';
s[2] := '11100101';
s[3] := '11110010';
s[4] := '00100000';
s[5] := '11110101';
s[6] := '11110011';
s[7] := '11100100';
s[8] := '11100000';
s[9] := '00100000';
s[10] := '11100001';
s[11] := '1110010';
s[12] := '11100111';
s[13] := '00100000';
s[14] := '11101110';
s[15] := '11100001';
s[16] := '11110000';
s[17] := '11100000';
s[18] := '00101110';
for i := 1 to 18 do
write(chr(BinToDec(s[i])));
end.
УВ 1:
Вначале у тебя а -5, а б-6.
Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.
И последнее: д=а+б=5+6=11
ответ:11
УВ 2:
А=3, б=2.1
Б<а? Да, меньше, т.к. 2.1 меньше 3
Значит выполним действие: напечатаем б, т.е.2.1
Затем в обязательном порядке напечатаем а, т.е.3
В итоге на экране напечатано будет:2.13
Ув3:
А,б,ц равны 3,4,5 соответственно
А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.
Иначе напечатолось бы сумма 3,4,5, т.е. 12
Ув4:
М=2
М >2?
Нет, не больше, значит м=м*м, т.е. 4