Pascal 1. Дано 3- х - значное число. Определить, входит ли в него цифра 6? 2. Напечатать ряд чисел 20 20 20 20 20 20 20 20 20 20

Question

Pascal 1. Дано 3- х - значное число. Определить, входит ли в него цифра 6? 2. Напечатать ряд чисел 20 20 20 20 20 20 20 20 20 20

Гость

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

Accepted Answer

var n : integer; begin read (n); if (n mod 10 = 6) or (n div 100 = 6) or (n div 10 mod 10 = 6) then write ('yes') else write ('no'); end. var i : integer; begin for i := 1 to 10 do write ('20 '); end.