1. створити наступну таблицю та заповнити й, врахувавши, що: а премія в розмірі 50 грн. нараховується працівникам, що відпрацювали не менше 176 година, ь. нараховано - ставка * час роботи + премія; с. податок = 13% від нараховано; d. до видачі - нараховано - податок. нарахування зарплати ставка час (грн. 1 премія нараховано податок no прізвище премія нара до видачі за год.) роботи іванов 2 петров 3 сидоров 4 кравчук 5 | прачук 6 савчук 7 | васін разом середнє макс. 5,00 4,50 5,50 5,50 6,50 5,00 6,00 160 176 176 200 176) 50 120

В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):

LET X=1.12

LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))

PRINT Y

И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).

Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.