На автомобильной мойке находятся: 2 автомобиля " жигули " 2 микроавтобуса "газель", 3 автомобиля волга1 автомобиль нива какое количество информации несут сообщения о том что случайным образом для мойки будет выбран автомобиль жигули микроавтобус газель автомобиль волга автомобиль нива

Т.к. выбор случаен, то и равновероятен для любого автомобиля. кол-во информации находим по формуле  =n,  (n-кол-во автомобилей равное 8). 8= , следовательно х=3 бит.

Вцикле  проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. ясно? если нет, могу написать программу, но лучше чтобы вам было ясно upd: можно через массивы, но это не хардкорно a, max, counter   :   integer; begin max : = 0; for counter = 1 to 15 do     begin     writeln("write ur number: ");     readln(a);     if (a mod 2) = 0 then          if a > max then max : = a;     end; writeln(max); readln(); end. ––––––––––––––––––––––––––––––––––– вам б-г    

1. a; c 2. write(); пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. ошибка - в строке " writeln(введите значения переменных m и n); " не указана переменная k. так же не нужны  кавычки  в выводе, а при вводе необходимы.исправление: program prim_a; var m, n, k: integer; begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end.4. a)  program plowad; var a, h: real; begin writeln('введите основание треугольника и высоту'); readln(a, h); writeln('площадь треугольника равна  ',  a*h/2); end. 5. program proizvedenie; var  a, b: integer; begin writeln('введите двузначное число'); readln(a); b: =a mod 10; a: =a div 10; writeln('произведение цифр двузначного числа равно  ', a*b); end.