Даны два целых числа а и b. если а делится на b или b делится на a, то вывести 1, иначе – любое другое число.

Var a,b: integer; begin   read(a,b);   if (a mod b=0) or (b mod a=0) then writeln('1')   else writeln('0'); end.

If (a mod b = 0) or (b mod a = 0) then written('1') else written('0'); –––––––––––––––– не понятно - пиши

Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления. можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2). затем проверяем остаток от деления одной переменной на другую. если 0 - "yes", иначе - "no" for i=5 downto 1 do if i mod 2 = 1 then a: = a+n div (10^(i-1)) mod 10 else b=b+ div (10^(i-1)) mod 10;

7

Объяснение:

Пойдём с самого начала. Сначала идут 4 длинных сигнала. Из представленных вариантов мы можем использовать только О:

О_.._..__...

За буквой О идёт один длинный сигнал и две точки. Двух точек нет, но есть одна, это буква Н:

ОН._..__...

Последовательности, начинающаяся с короткого сигнала и длинного нет, так что это буква Е:

ОНЕ_..__...

Мы получили такую же последовательность, как и на второй операции, букву Н:

ОНЕН.__...

Снова одна точка, то есть буква Е:

ОНЕНЕ__...

Последовательность из двух длинных сигналов одна - это буква З:

ОНЕНЕЗ.

Последняя точка - это буква Е:

ОНЕНЕЗЕ

Длинна данного слова - 7.