// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите целое число:'));
if n.IsOdd then Println('Число нечетное')
else
if n=0 then Writeln('Ноль вводиить нельзя')
else Println('Число четное')
end.
Ответ:
8
Объяснение:
В переменной a подсчитывается длина числа x. Например, при x = 13 значение a после работы алгоритма будет равно 2. В переменной b считается сумма всех цифр числа x. Например, при x = 13 значение b после работы алгоритма будет равно 4.
Таким образом, нас просят найти количество двузначных (так как после работы алгоритма a = 2) чисел x с суммой цифр, равной 11 (так как после работы алгоритма b = 11). Таких чисел всего 8: 29, 38, 47, 56, 65, 74, 83, 92.
Ответ:
2525 Может
256 не может, т.к. порядок это означает, что сумма трёх цифр -56, а это невозможно
2520 порядок не тот
2528 сумма трёх цифр не может быть 28
2825 порядок не тот
2025 может
625 может
106 порядок не тот
Ответ: 3
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.