Для каждой составить программу в pascal, выводящую значение true, если указанное высказывание является истинным, и false - в противном случае (использовать условный оператор нельзя). 10. в заданном натуральном трехзначном числе n имеется чётная цифра. 11. сумма каких-либо двух цифр заданного трёхзначного натурального числа n равна третьей цифре. 12. сумма цифр заданного четырёхзначного числа n превосходит произведение цифр этого же числа на 1. 13. сумма двух последних цифр заданного трёхзначного числа n меньше заданного k, а первая цифра больше 5. , прошу, ! !

106

373

Посмотреть ответы 2

Ответы на вопрос:

metelyovavickt

Информатика

4,5(76 оценок)

// 10. var n: integer; begin read(n); write((n div 100 mod 2 = 0) or (n mod 10 mod 2 = 0) or (n mod 100 div 10 mod 2 = 0)); end. // 11. var n: integer; a,b,c: integer; begin read(n); a: =n div 100; b: =n mod 100 div 10; c: =n mod 10; write((a+b=c)or(a+c=b)or(c+b=a)); end. // 12. var n: integer; a,b,c,d: integer; begin read(n); a: =n div 1000; b: =n mod 1000 div 10 div 10; c: =n mod 100 div 10; d: =n mod 10; write(a+b+c+d-1=a*b*c*d); end. // 13. var n,k: integer; a,b,c: integer; begin write('n,k= '); read(n,k); a: =n div 100; b: =n mod 100 div 10; c: =n mod 10; write((b+c< k)and(a> 5)); end.