СLS
INPUT x
IF (2x-3)<0 THEN PRINT "не может быть": END
<span>y=(SQR(((2*x-3)^5)+sin(x)))/(1/(tan(x^3*ABS(x-3))))</span>
PRINT y
END
CLS
INPUT a
INPUT b
w=a
a=b
b=w
PRINT a
PRINT b
END
/////////////////////////////////////
Program u4i_div_and_mod;
var a,b,c,z,x,v:integer;
begin
readln(a,b,c);
if((a + b)> c) and ((a + c )> b) and ((c + b )> a) then
begin
writeln('Yes');
if(a = b ) and( b = c ) then writeln('Ravnostor');
if(a = b) and (b <> c) then writeln('Ravnobedr');
if(a <> b ) and ( a <> c ) and (b <> c) then writeln('Raznost');
end
else writeln('NO');
readln;
<span>end.
cорри за ин-яз просто кодировки разные,исправь где нужно)</span>
Первый способ (большой):
использовать Чертежник
алг Богдан_1
нач
опустить перо
сместиться в точку(0, 11)
сместиться в точку(6, 11)
поднять перо
сместиться в точку(0, 6)
опустить перо
сместиться в точку(6, 6)
сместиться в точку(6, 0)
сместиться в точку(0, 0)
поднять перо
сместиться в точку(8, 0)
опустить перо
сместиться в точку(8, 11)
сместиться в точку(14, 11)
сместиться в точку(14, 0)
сместиться в точку(8, 0)
поднять перо
сместиться в точку(16, 0)
опустить перо
сместиться в точку(16, 11)
сместиться в точку(22, 11)
поднять перо
сместиться в точку(22, 0)
опустить перо
сместиться в точку(22, -2)
сместиться в точку(22, 0)
сместиться в точку(30, 0)
сместиться в точку(30, -2)
сместиться в точку(30, 0)
сместиться в точку(28, 0)
сместиться в точку(28, 11)
сместиться в точку(24, 11)
сместиться в точку(24, 0)
поднять перо
сместиться в точку(32, 0)
опустить перо
сместиться в точку(32, 11)
сместиться в точку(38, 11)
сместиться в точку(38, 0)
сместиться в точку(38, 5)
сместиться в точку(32, 5)
поднять перо
сместиться в точку(40,0)
опустить перо
сместиться в точку(40, 11)
сместиться в точку(40, 5)
сместиться в точку(46, 5)
сместиться в точку(46, 11)
сместиться в точку(46, 0)
кон
Второй способ (короткий):
использовать Чертежник
алг Богдан_2
нач
написать(30, "Богдан")
кон