513(10)=201 в шестнадцатиричной сс
Не видно, я ничего разобрать не могу
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.
Пишешь свое мнение. Например: в сети есть совершенно все, что нам нужно. Люди в интернете делятся своим опытом, отвечают на вопросы, создают сайты и электронные словари. Благодаря интернету, мы можем общаться с людьми, находить новые знакомства и даже отношения.
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.