64-х символьный алфавит кодирует один символ 6-ю битами
всего в сообщении 32 символа * 6 бит/символ = 192 бита
Program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
write ('Введите количество дюймов: ');
readln(d);
s := d*m;
writeln (d, ' дюймов = ', s, ' сантиметров')
end.
Упрощенный вариант:
program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
readln(d);
s := d*m;
writeln (s)
end.
Var a:integer;
Begin
Readln (a);
if a>3000 then writeln('Взять кислородный баллон')
else writeln ('Взять больше воды');
<span>end.</span>
Cntrl зажимаешь и выбираешь фигуру Круг и тянешь и он будет идеально ровный