Делим на 4 и записываем остатки от деления, все элементарно! ответ 321
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова «бот» равна 8;
2) сумма цифр слова «вол» равна 9;
3) сумма цифр слова «болт» равна 11;
4) сумма цифр слова «лото» равна 12.
болт - бот = л, л = 11 - 8 = 3
вол = 9 во = вол - л = 9 - 3 = 6
лото =12
ото = лото - л = 12 - 3 = 9
бот=8, значит о > б на 1, л = 3,
<span>о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4</span>
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>
Для трех логических переменных делаем таблицу из 8 строк: