Мына есептерді for операторын пайдаланып жазыңдар ​

нам это тоже задовали под буквой а я тож не знаю,а вот под буквой б напишу

program prim;

var i,sum,n,x   : integer;

begin

    write('n = ');

    readln(n);

    x: =2;

    sum: =2;

    i: =1;

    while sum< =n do

    begin

    x: =x+2;

    i: =i+1;

    sum: =sum+x;

end;

    writeln(i,'слагаемых');

end. 

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.

по сути простенькая.

v=u*t

объем = скорости передачи умноженная на время

v= 7680*90 (90сек=1.5 мин. секунды это система си)

v= 691200бит

v одного символа 16бит, а всего 400 символов на странице => вес страницы равен 16*400=6400 бит

чтобы найти количество страниц надо общий объем поделить на объем одной страницы.

691200/6400=108

ответ: всего было передано 108 страниц.