#include #include int main() { const int c=2; const float d=5.4; int b; float a,a_beg,a_end,ha,f,s,h; printf("vvedite nach znach, kon znach, shag a, b"); scanf("%f%f%f%d",& a_beg,& a_end,& ha,& b); a=a_beg; do { printf("a=%2f",a); s=a*b*c-d; if((a> 1)||(a< -1)||(a< =0+ha*0.001)& & (a> =0-ha*0. printf("f-net, s=%5.2f\n",s); else { f=s/asin(a); printf("f=%5.2f s=%5.2f\n",f,s); } a+=ha; } while(a< =a_end+0.001*ha); return 1; } составить блок-схему

Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.