Факультет послевузовского обучения местного колледжа города Озарк пред­ лагает в общей сложности до 30 курсов каждый семестр. Все курсы условно можно разбить на два типа: практические, такие как деревообработка, обу­ чение работе на компьютере, ремонт и поддержка автомобилей и т. п.; и гу­ манитарные, например история, музыка и изобразительное искусство. Что­ бы удовлетворить за обучающихся, в каждом семестре должно предлагаться не менее 10 курсов каждого типа. Факультет оценивает доход от одного практического курса в 1500, а гуманитарного — в 1000 долл.

Нужно составить таблицы(условие и ограничения) в excel!

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

решает данную и выводит ответ 

program d1; varu: array[1..16] of real; x: array[1..16] of real; i,z: integer; beginx[1]: =5; for i: =2 to 16 dobeginx[i]: =x[i-1]+0.2; end; for i: =2 to 16 dobeginu[i]: =x[i]*2+3; write(u[i],' | ')end; end.

var n,cost: real;

begin

  writeln('введите, сколько квт/ч клиент израсходовал');

  readln(n);

  if n< =250 then begin cost: =7*n; writeln('плата равна: ',cost); end;

  if (n> 250) and (n< =300) then begin cost: =17*n; writeln('плата равна: ',cost); end;

  if n> 300 then begin cost: =20*n; writeln('плата равна: ',cost); end;

end.

var n: integer;

begin

  read(n);

  if (n> 99) and (n< 1000) then writeln('yes')

  else writeln('no');

end.