Var i, p: integer; m: array [1..4] of integer; begin writeln('введите 4 числа: '); for i : = 1 to 4 do readln (m[i]); p : = 0; writeln('четные числа кратные 3: '); for i : = 1 to 4 do if (m[i] mod 2 = 0) and (m[i] mod 3 = 0) then begin write (m[i], ' '); inc(p); end; if p = 0 then write('таковых нет'); end.
Спасибо
Ответ дал: Гость
1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. записать результат под горизонтальной чертой на вертикали единиц.
4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
Популярные вопросы