кодек -кодекС
кодек - <span>шифратор/дешифратор</span>
<span> кодекс- свод законов</span>
Получится 3e3f5660 ,а вообще перемножаем и записываем если больше шестнадцати в следующий разряд
При копировании кода формат испортился. Код должен выглядеть как на картинке
var r, l: real; //Радиус и длина окружности соответственно top, bottom: real; //Внешний и внутренний радиус кольца ex_num: word;begin write('Введите номер задания: '); read(ex_num); if ex_num = 1 then begin write('Введите радиус: '); read(r); writeln('Длина окружности: ', 2 * pi * r); writeln('Площать круга данного радиуса: ', pi * r * r); end else if ex_num = 2 then begin writeln('Введите длину окружности: '); read(l); write('Площадь круга: ', pi * sqr(l / 2 * pi)); end else begin write('Введите внешний радиус кольца: '); read(top); write('Введите внутренний радиус кольца: '); read(bottom); write('Площадь кольца: ', pi * top * top - pi * bottom * bottom); end;end.
Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.