Уровень 2. Оценка «4»

Создайте следующую таблицу:

Вместо ФИО введите свои фамилию, имя и отчество.

В ячейку D5 введите формулу расчета прибыли – Приход-Расход.

При маркера заполнения скопируйте формулу до D16.

«Итого» подсчитайте при автосуммирования.

Среднее, максимальное и минимальное значения – с использованием функций СРЗНАЧ, МАКС и МИН.

Нанесите сетку.

Примените шрифтовое оформление и заливку шапки таблицы.

Сохраните документ под именем Plus. xls.

{Совет 1. Для введения названия месяцев используйте функцию автозаполнения.

Совет 2. При заполнении столбцов прихода и расходы настройте предварительно денежный формат ячейки

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

64000*16=1024000 б=128000 б=125 кб

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.

* 60 / 16 =