Вклетки эт введены следующие формулы: a1=8 a2=a1*10 a3=a2-a1 b1=a2/4 b2=(b1-a1)/6 вычислите значения, которые будут отображены на экране в клетках эт.

a1=8;

a2=a1*10=80;

a3=a2-a1=72;

b1=a2/4=20;

b2=(b1-a1)/6=2;

ответ: a1=8; a2=80; a3=72; b1=20; b2=2

ответ: попробуй  

объяснение:

void __fastcall tform1: : button1click(tobject *sender)

{

  int count = 0;

  tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє

  list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");

  memo1-> text =   list-> text;

  list-> delimitedtext = memo1-> text;

  memo2-> text = list-> delimitedtext;

  for (int i=0; i < list-> count; i++)

  {

    if ( list-> strings[i].length() < = 4 )

    {

      count++;

    }

  }

  label1-> caption = inttostr(count);

  delete list;

  list = null;

}

ответ:

{напишите программу, которая находит минимальное и максимальное

среди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.}

var f: text;

  min, max,a : integer;

  find: boolean; {есть/нет числа удовлетворяющие условию}

begin

  assign(f,'dan.txt'); reset(f);

  min: =0; max: =0;

  find: =false;

  while not eof(f) do

  begin

  read(f,a);

  if not find and (a> 0) and (a mod 2=0) then

  begin

  min: =a; find: =true;

  end

  else

  if find and (a> 0) and (a mod 2=0) and (min> a) then

  min: =a;

  if (a> 0) and (a mod 2=0) and (max

  max: =a;

  end;

  close(f);

  assign(f,'res.txt');

  rewrite(f);

  if max=0 then writeln(f,'чётных положительных чисел нет')

  else

  writeln(f,'min среди чётных положительных чисел =',min, chr(13),

      'max среди чётных положительных чисел нет',max);

  close(f);

end.

подробнее - на -

объяснение: