Pascal 1. дано 3- х - значное число. определить, - вопрос №13533445 от grishinaanfisa 21.04.2020 04:28

Question

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

grishinaanfisa · 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.