Pascal

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

2. Напечатать ряд чисел 20 20 20 20 20 20 20 20 20 20

1

Ответы и объяснения

2013-01-30T09:58:08+00:00

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.