Битовая глубина равна 9 разрешающая экрана 1028*860 пикселей вычислить объем видеопамяти в Кбайтах.

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.