Ответ:
program abc;
var n,m,k,b:integer;
begin
readLn(n,m,k);
if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;
if b mod 2<>0 then writeLn(b)
else if b>=n then writeLn(b-1);
if (b mod 2=0) and (b<>n) then writeLn(b+1);
end.
Объяснение:
1) К прикладным программам относятся:
✔ Текстовые редакторы (подходят все варианты - они все взаимодействуют с пользователем)
✔ Графические редакторы
✔ Бухгалтерские программы
✔ Табличные процессоры
2) В игре "Поле чудес" загадали слово из 16 букв. Вы просите открыть вторую букву. Когда вам ее открыли, какое количество информации вы получили?
1 16 бит
2 1 байт
✔ 4 бит (2^4 = 16)
4 8 бит
3) У матери было четыре сына: Миша, Ваня, Толя, Гоша. Двое из них близнецы. Известно, что Толя старше Миши, который моложе Гоши. Толя моложе Вани, который старше Гоши. Кто из детей близнецы?
Из первого утверждения Толя > Миша и Гоша > Миша, из второго Ваня > Толя, Ваня > Гоша. Тогда Ваня > [Толя, Гоша] > Миша, Толя и Гоша - близнецы.
4) Какие из определений относятся к дисплейному процессору?
✔ составляющее видеокарты
2 электронное энергозависимое запоминающее устройство
3 устройство для ввода в компьютер изображения
✔ управляет работой дисплея
5) Что из нижеперичисленного можно отнести к информационным моделям?
✔ манекен
✔ карточка больного
✔ карта местности
✔ модель застройки городп
6) Какой символ необходимо разместить перед запросом в строке поиска в интернете, чтобы было обязательное присутствие всех слов в найденных документах?
1 & (это не указывается перед запросом)
✔ +
3 ! (это "не")
4 * (это замена любого слово в цитате
7) Ты работал в каталоге C:\DOOL\FORS1\DDD_Модель. Затем перешел на один уровень выше в дереве каталогов, спустился в подкаталог DDD_Рок и удалил из него файл coni.22. Назовите полное имя файла, который вы удалили.
Изначально были в C:\DOOL\FORS1\DDD_Модель, подняли на уровень выше C:\DOOL\FORS1, спустились в подкаталог C:\DOOL\FORS1\DDD_Рок и удалили файл C:\DOOL\FORS1\DDD_Рок\coni.22
При использовании 256-цветной палитры для хранения одной точки требуется log(2)256 = 8 бит = 1 байт.
Объем рисунка = 300*350*1 байт = 105000 байт
var
s: string;
i: integer;
q: boolean;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '?') then q := true;
if(q) then writeln('Вопросительное')
else writeln('Не вопросительное');
end.