Var x,y:real;
begin
writeln ('Введите x: ');
read (x);
if x>=1.5 then
begin
y:=SQRT(2*x-3);
writeln('y = ', y);
end else
writeln ('Под корнем отрицательное число!');
end.
Вот, держи :)
................................
3е..............................................
5124 в двоичной= 1010000000100 (5124÷2=(полученный ответ записывается с права налево) 1010000000100₂)
23 в двоичной= 10111 (23÷2=(полученный ответ записывается с права налево) 10111₂)
14 в восьмеричной = 16 (14÷8=(полученный ответ записывается с права налево) 16₈)
327 в восьмеричной= 507 (327÷8=(полученный ответ записывается с права налево) 507₈)
3D в шестнадцатеричная = 61 (3D₁₆ = 3∙16¹+13∙16⁰ = 48+13 = 61₁₀ )
2E в шестнадцатеричная = 46 (2E₁₆ = 2∙16¹+14∙16⁰ = 32+14 = 46₁₀)
Program p1;
const n=5;
var i:integer;
kurs: array[1..n] of real;
summa,r,bank: real;
begin
writeln('Введите сумму: ');
read(summa);
for i:=1 to n do begin
writeln('Введите курс в ',i,' банке: ');
read(kurs[i]);
end;
r:=0;
for i:=1 to n do begin
if (kurs[i]*summa)>r then
begin
r:=kurs[i]*summa;
bank:=i;
end;
end;
writeln('Выгодно в банке №: ',bank);
<span>end.</span>