В этой задаче требуется проверить, есть ли в числе N две цифры 6?
Формат входных данных
Дано целое число N (0 ≤ N ≤ 100 000 000).
Формат выходных данных
Требуется вывести «YES», если в N есть две (или более) цифр 6, или «NO», если нет. Обратите внимание, что кавычки выводить не требуется.

входные данные выходные данные

646 YES

42 NO

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете

954-459=495

все условия соблюдены

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.