QBasic.
Даны 3 числа a, b, c . Определите, является ли их произведение больше 150.

10 input "a=", a

20 input "b=", b

30 input "c=", c

40 s = a * b * c

50 if s>150 then print "s>150" else print "s<=150"

Объяснение:

вроде так

1

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца   в компьютере 

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

композитор - с компьютера и специальных программ может прослушивать свои произведения и доробатовать их

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно   если что то не понравилось удалил и переделал ! и не надо портить бумагу 

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

2 

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !  

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

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.