For3. даны два целых числа а и в (а

Var a, b: integer; begin write('введите a, b> > '); read(a, b); if a< b then begin while (b-1> a) do begin b: =b-1; write (b, ' '); end; end else write('неверные условия') end.

Не будет работать если у  переменной "а" будет максимальное значение если a> b то m: =a                                       if a> b then m: =a; иначе           m: =b всё                               else           m: =b; если   c> b то m: =c                                     if c> b then m: =c иначе           m: =b всё                               else           m: =b; если   a> c то m: =a                                     if a> c then m: =a иначе           m: =c всё                               else           m: =c;

Информатика-это  наука,изучающая виды информации,способы её получения,хранения и передачи. -это  наука,о  природе нашей планеты и о законах,по которым она живет и развивается. фонетика-это  раздел науки о звуках языка ботаника-это  раздел  науки  о изучении растений имя  сущ-это  самостоятельная  часть речи,которая  отвечает на вопросы  кто? что? и обозначает предмет глагол-это  самостоятельная  часть речи,которая отвечает  на вопросы что сделать? что делать? и др.  обозначает действие предмета тяж.промышленность-это  группа  отраслей промышлености,производящих преимущественно средства  произовдства. легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.