Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
<span>артефакт,инстинкт,антарцит,оригинал</span>
83531можна так а можна просто перевернути
156 - могло (например, для числа 960 9+6=15, 6+0=6)
1717 - могло (989)
1917 - не могло (сумма двух цифр не даст 19)
518 - не могло (5<18, а 51 не могло бы получиться)
512 - не могло (аналогично)
152 - не могло (если большая сумма 15, то меньшая не может быть меньше 15-9=6)
69 - не могло (6<9)
915 - не могло (9<15, 91 не могло получиться)
195 - не могло (19 не получить)
Ответ: 2.
Ответ :1,2,4
Объяснение:вроде так но я считаю так что это 1,2,5.