Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.
Пример:
4
<span>x = 1.25</span>
A=1+2=3
b=3+3+2=8
if((a-13)%10==0)
<span>Во Франции в Парижском «Музее искусств и ремёсел» с конца прошлого века хранится интереснейшая счётная машина. Это — первый в мире автомат для вычислений, изобре* тённый в 1881 году знаменитым русским математиком и механиком академиком П. Л. Чебышевым.</span>
Объем памяти = 10*8*12000 бит = 10*8*12000/8 байт = 120000/1024 Кбайт ≈ 117,2 Кбайт = 117,2/1024 Мбайт ≈ 0,11 Мбайт