Варіант 14
У викладачів наступні посади і оклади:
професор – 7500 грн.; доцент – 5800 грн.; старший викладач –4400 грн.; викладач – 3100 грн.
Розрахувати надбавку викладачам.
Якщо стаж від 5 до 10 років - доплачується 10% від окладу,
 від 10 до 20 років - 20% окладу,
 до 30 років – 25% окладу,
 понад 30 років – 30% окладу.
Розрахувати розмір надбавки і суму до сплати з урахуванням окладу і надбавки.
Розрахувати загальну суму виплат по навчальному закладу; кількість викладачів, які не
одержують надбавку за стаж і їх загальну суму до сплати.
Для кожної посади визначити кількість викладачів і їх загальну суму до оплати.

нужно сделать в Excel

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?

про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;

begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.

прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.

№1

program fff;

var a, b, c: integer;

begin

writeln('введите первое число');

readln(a);

b:=a+1;

c:=a+2;

writeln(a);

writeln(b);

writeln(c);

end.

№2

program fff;

var r, o, p: integer;

begin

writeln('введите длину ребра');

readln(r);

o:=r*r;

o:=r*o;

p:=r*r;

writeln('объем куба=',o);

writeln('площадь стороны=',p);

end.

№3

program fff;

var ch, a, b, c, su, pr: integer;

begin

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

read(ch);

a:= ch div 100;

b:=ch mod 10;

c:= ch div 10;

c:= c mod 10;

su:=a+b+c;

pr:=a*b*c;

writeln('сумма=',su);

writeln('произведение=',pr);

end.