Вычислить и вывести на экран в виде таблицы значения функции f на интервале от xначю до xкон. с шагом dx. /1/(a*x)-b при x+5< 0 и c=0 | f= /(x-a)/x при x+5> 0 и c< > 0 \ | \(10*x)/(c-4) в остальных случаях где a, b, c -действительные числа.

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.