Пере 'удача . То что в голову пришло)
=D$2+$B4...........................................
<span>мегабайт содержит <span>1024 килобайта.
1024/2=512
512+1024=1536 кб</span></span>
Переведем в двоичную систему данные числа, тогда
о - 00
к - 01
г - 10
д - 11
р - 100
слово городок -
100010000110001 переводя в восьмеричную систему получаем
42061
Ответ : 42061
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.