<span>(а V а) ? (﹁в V а)
</span>
Таблица истинности приведена на картинке. Как можно заметить, при текущей формулировке функция не может возвращать 1 при любом значении параметров, независимо от поставленного знака.
Program maxim;
const n=15 {15 студентов};
var a:array[1..n] of integer;
i,max:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(10){кол-во баллов до 15};
write (a[i],' ');
end;
max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
end;
writeln;
writeln (max);<span>
end.</span>
36(10) В скобках указывается изначальная система. У нас десятичная.
Мы переводим в троичную.
Мы делим 36 и остаток выносим.
36:3 (0)= 12 : 3 (0) = 4 :3 (остаток 1) = 1:3 (остаток 1)
И запись переводим слева на право, т.е. 1100.
Можем себя проверить 3^3*1+3^2*1+0+0 = 36, действительно
С 278 проделываем тоже самое, только тут уже можно проделать другой трюк, зная что 256 это 2^8 = 10000000 и нам ещё нужно 26, а что такое 26?
Это 16, 8 , 2. Т.е. 10011010.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ
сумма := 0;
макс := 0;
Вывод.Цепь("Введите число автомобилей: ");
N := Приём.Число();
ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
Вывод.Цепь("^Введите скорости:^");
ОТ сч := 1 ДО N ВЫП
скор := Приём.Число();
ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
УВЕЛИЧИТЬ(сумма, скор);
ЕСЛИ скор > макс ТО макс := скор КОН;
Вывод.Цепь(" ")
КОН
КОН;
Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.